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DEMOPAK - A Functional Demonstration of the IBM 1620 

Author: Ray Peck 

Bill Olmo 
Dave Montgomery 

Direct Inquiries to: W. J. Olmo 

IBM Corporation 
340 Market Street 
San Francisco, California 

A. Purpose/Description: DEMOPAK is designed to be used as an introductory 
demonstration of various 1620 functions and to provide a background for 
the demonstration of programming systems and production programs. 

B. Method: The program is divided into sections, each of which is a complete 
program which will type a heading and, if program switch 3 is on, a set 

of operating instructions. The section then comes to a halt and is executed 
by depressing START. Upon completion the program returns to the initial 
halt and is ready to be executed again. Program switches 1 and 2 are 
used in some sections to stop the operation, alter logic, or provide optional 
input or output. 

When the demonstration of any section is complete the operator depresses 
RESET, INSERT, RELEASE, and START to proceed to the next demonstration 
section. By INSERTING the correct branch the operator can return to any 
section or change the sequence of section. 

C. Restrictions and Range: N/A 

D. Accuracy : N/A 

E. Machine Configuration: DEMOPAK requires only the basic 1620 card 
system, no special features. 

F . Program Requirements : N/A 

G. Source Language : The program is written in 1620/1710 SPS (1620-SP-020). 

H. Program Execution Time: It requires 30 to 50 minutes to run. 

I. Check-Out Status: N/A 

J". Sample Problem Running Time: N/A 

K. Comments: In order to intelligently present DEMOPAK, the demonstrator 
should read: 

Operating Instructions Page 33 

Demonstration Narrative Page 42 
This program and its documentation were written by an IBM employee. 
It was developed for a specific purpose and submitted for general 

o 
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distribution to interested parties in the hope that it might prove 
helpful to other members of the data processing community. The 
program and its documentation are essentially in the author's 
original form. IBM serves as the distribution agency in supplying 
this program. Questions concerning the use of the program should 
be directed to the author's attention. 



PROGRAM DESCRIPTION 



DEMOPAK is designed to demonstrate various features in the 1620 system. 
Eight sections are included in this package. The reader may add a ninth 
to meet the needs of the group to whom the demo is being presented, or 
delete any section. Each section is written in 1620/1710 SPS (1620- 
SP-020). The SPS condensed deck is then added to DEMOPAK after remov- 
ing the first two cards and the last seven cards. Each section is allotted 
1800 positions of memory as shown: 



Section 


1000 Positions 
Starting at and 


800 Positions 
Starting at 


1 


1000 


10,000 


2 


2000 


10,800 


3 


3000 


11,600 


4 


4000 


12,400 


5 


5000 


13,200 


6 


6000 


14,000 


7 


7000 


14,800 


8 


8000 


15,600 


9 


9000 


16,400 




CONTENTS OF THE DECK 





DECK I 



Seq. No. 



Pre-Demo Instructions 






100 - 


■ 124 


Initialization 






200 - 


- 211 


Subroutines 






300 - 


347 


Card Reading 


Sec. 


1 


1,000 - 


- 1,043 


Card Output 


Sec. 


2 


2,000 - 


- 2,025 


Typewriter I/O 


Sec. 


3 


3,000 - 


- 3,025 


Addition 


Sec. 


4 


4,000- 


• 4,027 


Digits to Alphabetic 


Sec. 


5 


5,000 - 


- 5,056 


Rapid Successive Addition 


Sec. 


6 


6,000 - 


■6,046 


Successive Multiplication 


Sec. 


7 


7,000 - 


- 7,047 


Combination of Effects 


Sec. 


8 


8,000 - 


- 8,047 


Math Tables 






400 - 


- 406 



It should be noted that the Pre-Demo Instructions may be removed if desired. 
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DECK II 



Typical input data for Section 8 

DEMOPAK contains two pre-programs which are overloaded by the main pro- 
gram. 

The first is the section giving pre-demo instructions. After the first few 
cards have been read a message is typed saying SW 3 ON for pre-demo 
instructions. The operator then has the option of getting margin and tab 
stop information. 



SW 3 ON 
for Instr 
& Halt 




Instruc- 
tions & 
Halt 




Load the 
+ rest of 
programs 
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The second is the initialization program. This does two things. First, it 
clears flags from all the thousands positions and second, it sets up a field 
of four record marks. 



Initialize 



I 





Clear flag 


1 i 


from 1000 




Increment 


No 


^inishec^ 




[Yes 



Set up 
field 
RM 4 

Load the 
rest of 
program 

DEMOPAK starts by executing the Demonstration Heading subprogram. This 
program prints the heading, operating instructions and the starting position 
of the sections being demonstrated. 



Read 




There are several subroutines used in DEMOPAK. They are: 



ALPHA Print Alpha and Skip Subroutine 

EDIT Numeric to Alpha Edit Subroutine 

NEXT Branch to Next Function Subroutine 

LD 80 Prepare I/O Area Subroutine 

LD 160 Prepare I/O Area Subroutine 



ALPHA Subroutine : 

The purpose of this subroutine is to print messages and return the 
carriage of the typewriter. 

The linkage is: 

BTM ALPHA, XXXXX 

where XXXXX is the label of the first line to be printed. 
The instructions are in the form: 

BTM ALPHA, XXXXX 



DC 4,YYZZ 
XXXXX DAC 



DAC 

ALPHA DS ,00694 

where YY is the number of lines to be typed and ZZ is the number 
of times the carriage is to be returned after each line. Each line 
as defined by its DAC must be terminated by a record mark. 

This subroutine can also be used to return the carriage of the 
typewriter in this manner: 

BTM ALPHA,XXXXX+2 



XXXXX DC 4,00ZZ 

ALPHA DS ,00694 
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where ZZ is again the number of carriage returns, 



ALPHA 



WATY 

m 



Add to 
Line 
Count 

ZEZ 



Update 
next WAT¥ 
Addr 



Init. 
4f RCTY 
Counter 








Initializ 
Vddr,RN 
& line c 
Store lii 
skip in 


e Type 
[ Search 
ount 
le & 
[o._, ... 







Yes 



Yes 




RCTY\Yes 
Done 



No 



Lines 
Done. 



No 



RCTY 
Inc. 
Counter 




Branch 
Back 
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EDIT Subroutine: 



The purpose of this subroutine is to simulate the Transfer Numerical 
Fill command and to edit out high order zeroes. 

The linkage is: 

BTM EDIT,XXXXX 

where XXXXX is the address of the field to be edited. The instruction 
will be in the form: 

BTM EDIT, XXXXX 



EDIT DS , 17206 

EDNUMB DS , 19001 

The results, with a leading minus sign for negative data and a trail- 
ing record mark, will be stored at EDNUMB. Typical instructions will 
then be: 

WATY EDNUMB 

TR ZZZZZ, EDNUMB- 1 

The number of spaces required for the edited number is 2 * (Y+l), 
where Y is the length of the field being edited. 



o 



EDIT 




#C Order^ 


JNo 




Decrement 




Search 
Addr. 







Set 
SW 





Move in 
Blank 



Move 
7 Digit 



Increment 
Digit Addr 
Output Addr 



Yes 




Place 
Record 
Mark 



Branch 
•Back 



-8- 



NEXT Subroutine : 

The purpose of this subroutine is to give an automatic branch to the 
next section when RESET, INSERT, RELEASE and START are depressed 
in that order. 

The linkage is: 

BTM NEXT,XXXX 

where XXXX is the thousands position where the present section 
starts . 

The instruction will be in the form: 

BTM NEXT, XXXX 

NEXT DS ,17608 



NEXT 



Initialize 
Function 
Search 



Place Br 
o next fun< t . 
in 00000 



No 




-9- 



LP 80 Subroutine : 

The purpose of this subroutine is to set the input/output area, 
the last eighty positions of storage, to any desired character. 

The linkage is: 

BT LD80,XXXX,8 

where XXXX are the digits to be set in storage. The instructions 
will be in the form: 

BT LD80,XXXX,8 

LD80 DS , 17798 

BAREA DS , 19920 

where BAREA is the label used for the last 80 storage positions. 
If it is desired to set the area to record marks we use: 

BT LD80,RM4 

LD80 DS ,17798 

RM4 DS ,405 

where RM4 is a field of four record marks. 
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LD80 
Initialize 



Addresses 





Transmit 


> 


digits 




1 




Increment 


No 


I 

^Done^ 






j^Yes 




Branch 
Back 



LP 160 Subroutine: 

This is actually the same subroutine as the LP 80 except it sets the 
last one hundred sixty positions of storage. 

The linkage is: 

BTM LD160,XXXX,8 

where XXXX are the digits to be set in storage. The instructions will 
be in the form: 

BTM LD160,XXXX,8 

LD160 DS ,17834 

AAREA PS ,19841 

where AAREA is the label given to the last 160 positions of storage. 
-11- 



DEMOPAK contains eight sections. The description of these sections 
follows, with the format: 



A. 


Purpose 


B. 


Input 


C. 


Output 


D. 


Processing 


E. 


Demonstration Procedure and Significant Points 


F. 


Block Diagram 
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SECTION I - READ CARDS 

A. Purpose - to illustrate 

1) Card read speed 

2) Typewriter as message station 

B . Input - cards in read unit 

C. Output - typed message stating number of cards read 

D. Processing 

1) Cards are read. 

2) Switches are interrogated to determine when card reading 
should end. 

E. Demonstration Procedure and Significant Points 

1) Place over 1000 cards in the card reader, SW 1 and 2 OFF. 

2) Depress START and READER START. 

3) Identify the various components of the 1620 system, explain 
the idea of a stored program and answer any questions. 

4) After 1000 cards have been read reading will stop and a 
message will be typed out. 

5) To show that the cards are counted as read depress START 
and after several cards have been read turn SW 1 ON . 

6) Reload the card read hopper; point out the read speed is 250 
cards per minute. Turn Switch 2 on and depress START. 

7) A message will be typed out to check, the time when ready 
depress START and get a timed run of 125 cards. 

8) Any of the above steps may be repeated. 

-13- 
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SECTION II - PUNCH CARDS 



A. Purpose - to illustrate 

1) Punch speed 

2) Typewriter as message station 

3) Ability to generate random numbers 

B. Input - blank cards in punch unit 

C . Output 

1) With SW 2 ON 125 data cards containing two random numbers 
each 

2) When SW 1 is turned ON data cards , up to time of turning 
SW on, with two random numbers 

3) Error message 

D. Processing 

1) Test for correct switch settings. 

2) Multiply two numbers picking parts of the product as random 
numbers . 

3) Punch cards containing random numbers . 

E. Demonstration Procedure and Significant Points 

1) Depress START and PUNCH START. 

2) Cards are now being punched at the rate of 125 cards per 
minute . 

3) Turn SW 1 ON to stop punching. 

4) Depress NON-PROCESS RUNOUT on punch unit but do not 
remove the two blank cards . 

-15- 



5) Repeat procedure with SW 2 ON, SW 1 OFF and time output. 

6) Repeat procedure with .both SW 1 and SW 2 ON. 

7) 80-80 list the output cards and point out that two random 
numbers have been generated in each card. 

8) Point out that the punch unit runs at top speed while these 
calculations are going on; this demonstrates the buffered 
punch unit. 



Load Branch to 



Next Section 




Generate 
^ Random # 
& Punch 




Punching 



Type 
Message (- 
No . Card » 




is 



SECTION III - TYPEWRITER INPUT/OUTPUT 



Purpose - to illustrate 

1) The Alphameric and Numeric modes of typewriter input/output 

2) The ability of the 1620 to handle variable length information 
in typewriter input/output operations 

3) The entry of numeric information in the Alphameric mode by 
depression of the numeric shift key 

4) The ability to select the input/output mode based on program 
switches 

5) Procedure for correction of errors in entered from the type- 
writer 

Input 

1) SW 1 ON, SW 2 OFF - A number up to 150 digits in length 
may be entered from the typewriter. 

2) SW 1 OFF, SW 2 ON - Up to 75 characters of alphameric 
information may be entered from the typewriter. 

Output 

1) The typewriter prints an "A" , a number telling how many inputs 
have been made to this section, an equals sign, and then the 
input data. For example: If data such as 

I AM AN IBM 1620 

were typed as input (SW 1 OFF, SW 2 ON for alphameric mode), 
then the typewriter would print the following message: 

A01 = I AM AN IBM 1620 

If SW 1 is now turned ON and SW 2 turned OFF (numeric mode) 
and the data 

1 2 3 4 5 6 7 

is entered from the keyboard, the output will be 



A02 = 1 2 3 4 5 6 7 



2) If 28 or fewer digits are entered, the typewriter will 
tabulate and print the variable data that was entered. 

3) If more than 28 digits are entered, the typewriter will 
return the carriage two times and then print the variable 
data that was entered. 

D. Processing 

1) Input filled with record marks prior to entry. 

2) Test for valid switch settings and mode of input. 

3) Increments the counter which accumulates the number of 
entries. 

4) Prints the Output. (See Section C for the format of the 
output . ) 

E. Demonstration Procedure and Significant Points 

1) Instructions are typed out if SW 3 is ON. 

2) Depress START leaving both SW 1 and SW 2 OFF an error 
message will be typed. 

3) SW 1 and SW 2 both ON and depress START. This will 
cause a second error message to type. 

4) SW 1 ON, SW 2 OFF for numeric input. 

5) Depress START. 

6) Typewriter selected in the numeric mode. 

7) Point out the 36 (Read Numeric) in the OP register with the 
01 sense code. 

8) Enter digits - about 10. 

9) Point out that MARS (Memory Address Register) indicates 
locations in memory where digits are stored. 

10) Discuss variable word length. 

11) Depress RELEASE and START. 
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12) Typewriter tabulates and prints a variable name (A01 =) 
followed by the entered data . 

13) Depress START and typewriter will again be selected. 

14) Enter more than 28 digits. 

15) Depress RELEASE and START. 

16) The carriage will return and the variable name (A02 =) 
will print followed by the entered data. 

17) Point out the detection of a long record with the tabulation 
and carriage return under stored program control. 

18) Depress START and typewriter will be selected. 

19) Have members of the group enter data. 

20) If an error occurs or the question of a typing error comes up - 
describe and demonstrate typewriter error correction. If an 
error is made, turn ON SW 4 before depressing RELEASE and 
START. Depress RELEASE and START. Turn OFF SW 4. Type 
in correct data. If RELEASE and START have been depressed 
prior to detecting the error and turning SW 4 ON , the error 
cannot be corrected. 

21) SW 1 OFF and SW 2 ON for alphameric input/output. 

22) Depress START and typewriter will be selected in the alpha- 
meric mode. 

23) Type in up to 28 characters. Use the numeric shift key to 
enter a few numbers , e.g. 

I AM AN IBM 1620 

24) Depress RELEASE and START. 

25) Typewriter will tabulate and print the variable name followed 
by the entered data. 

26) Depress START and typewriter will again be selected. 

27) Type in more than 28 characters. 

28) Depress RELEASE and START. 

-19- 




29) Typewriter will return carriage and print the variable name 
followed by the entered data. 

30) Have the members of the group enter alphameric information. 



Load Branch to 
Next Section 
Type Heading 
Halt 




Output 
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SECTION IV - ADD A COLUMN OF FIGURES 

A. Purpose - to illustrate 

1) The ability to change a job's procedure based on a program 
switch 

2) Typewriter entry error procedure 

3) Calculation speed 

B. Input 

1) A number up to 8 positions, entered on console typewriter 

2) A two position number telling how many times to add the 
number to itself thus simulating the addition of a column of 
figures 

C . Output 

1) SW 1 OFF the sum of the column of figures 

2) SW 1 ON each subtotal and the final total. 

3) Error messages 

D. Processing 

1) Test for correct number of digits entered. 

2) Add the number to itself the specified number of times. 

E. Demonstration Procedure and Significant Points 

1) Depress START. 

2) A message is typed out to enter an eight digit field, and the 
typewriter is selected in the numeric mode. 

3) Enter up to eight digits and depress RELEASE and START. 

4) A message is typed out to enter the number of times the 
above number is to be added to itself and the typewriter is 
selected in the numeric mode. 

-21- 
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5) Enter two digits and depress RELEASE and START or R-S 
key on typewriter. 

6) With Program SW 1 OFF the final sum will be typed out. 

7) With Program SW 1 ON each subtotal will be printed and 
then the final total. 

8) Point out the use of Program Switches to show how a basic 
program can be altered to give different results. 

9) Enter an eight digit number with leading zeros and point 
out that the program tests for high order zeros and elim- 
inates them. This will not be done in Section VI. 

10) In case of typing errors see Sec. Ill, Part E20. 

Load Branch to 
Next Section 
Type Heading 
Halt 

_ T zr 



Enter 8 
n digit field t- 
&2 digit. 




Add 
Decrement 
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SECTION V - SIMPLE LOGICAL DECISION 



A. Purpose - to illustrate 

1) The ability to make a selection based on an input number 
code 

2) The ability to recognize input errors 

3) Typewriter entry error procedure 

B. Input - numbers from to 99 entered on console typewriter 

C. Output 

1) Spells out the name of the number entered 

2) Error message if more than two digits are entered 

D. Processing 

1) Test for the number of digits entered. 

2) Branch to one of three loops testing for 0-9, 10-19, 20-90. 

3) If 20-90, we next go through the 0-9 loop. 

E. Demonstration Procedure and Significant Points 

1) Depress START. 

2) Enter message is typed out and the typewriter is selected 
to the numeric mode. 

3) The operator or a member of the group enters one or two 
digits. 

4) Explain that the computer will now use this information to 
find the location where the number name is stored and after 
finding it will type it out. 

5) Depress RELEASE and START or R-S key on typewriter. 

6) The typewriter tabs, the name is printed, and the carriage 
returns. 
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7) 



To illustrate an error condition, enter three digits and 
then no digits. 



8) See Sec.III, Part E20 for typewriter input error condition. 

9) If no one has already done so enter the number 13 before 
going on to the next section. 



Load Branch to 
Next Section 
Type Heading 
Halt 



Zero and 
1 to 10 
loop 




20 to 90 
loop 



Test Increment 
and Branch 
until we find 
correct number 




-24- 



SECTION VI - SIMPLE ADD SPEED 

A. Purpose - to illustrate 

1) Calculation Speed (simple add) 

2) Single Instruction Execute and the use of the console 

3) The ability to change conditions for switch settings 

B. Input - none 

C . Output 

1} The contents of the counter (6 positions with high order 

zeros) when switch two is changed after start is depressed 

2) Error message if switch two is changed before start is 
depressed 

D. Processing 

1) Switch two setting initializes the test conditions for error 
message and addition completed. 

2) One is added to a 6 digit counter. 

E. Demonstration Procedure and Significant Points 

1) Depress START. 

2) Explain that the computer has looked at switch two and will 
continue to add one to the counter until the switch is changed. 
Point out that it is the change in switch two that stops addi- 
tion, not just turning it ON or OFF. 

3) Change switch two. 

4) The contents of the counter are typed plus a comment. 

5) Point out that this time, as opposed to section IV, the output 
number is not edited and high order zeros are typed. 

6) To illustrate an error condition change switch one then de- 
press START. 
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7) It is assumed that all members of the group will want to 
try their luck on this section. 

8) To illustrate just what is occurring depress SIE to show 
how this section works, first the test to see if SW 2 has 
been changed too soon , then the addition of Hi , then the 
test to see if SW 2 has been changed, then add, test, 
add, etc. 

9) Point out how SIE is useful in debugging programs. 

10) Show that by depressing SCE we can see just how the 
computer accesses and executes an instruction. Point 
out I cycles and E cycles. 



Load Branch to 
Next Section 
Type Heading 



Initialize 




Yes 




Add one to 




Counter 


< 1 




No 


£*Changetk. 
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SECTION VII - SUCCESSIVE MULTIPLICATION 



A. Purpose - to illustrate 

1) Multiplication speed 

2) Ability to develop floating point products 

3) Ability to accept variable length input 

4) Typewriter entry error correction 

B. Input 

1) NUMBER is printed on the typewriter and 1 to 7 digits may 
be entered. Leading zeros cause an error message to type 
out. 

2) POWER is printed and a power from 1 to 99 may be entered. 

C . Output 

1) Since any number raised to the zero power is one , the pro- 
gram will type one whenever a zero power has been entered. 

2) Since any number to the first power is that number itself, 
the program will type 

Answer = 

and then type the number that was entered. 

3) Under any other conditions the program will develop a float- 
ing point product. An example of this output for twelve squared 
( (12) 2 ) is as follows: 

Answer 0.14400000000000 times ten to the power 003 

D. Processing 

1) Input filled with record marks prior to entry 

2) Test for illegal entry 
a) No entry 
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b) Number greater than seven digits or power greater 
than two digits 



c) Leading zero on number 

(This restriction preserves the significant 
digits as the number is raised to succes- 
sively higher powers in the floating point 
form . ) 



3) Tests for power of zero (See Output, Sec. C. 1.) 

4) Tests for power of one (See Output, Sec. C.2.) 



5) Converts number into a floating point number and raises it to 
the power which was entered. It does so by successively 
multiplying the number by itself until the appropriate power 
is reached. The mantissa of the answer will always be 14 
digits . 



Demonstration Procedure and Significant Points 



1) Instructions are typed if SW 3 is ON. 



2) Depress START. 



3) Number will type out and the 1620 will then be prepared to 

read from the typewriter in the numeric mode. Up to a 7 digit 
number may now be entered. Point out the 36 in the Op Register 
and the 1 in the Sense Branch Register indicating a read numeric 
from the typewriter. 



4) Depress RELEASE and START. 



5) POWER will type out and the 1620 will then be prepared to ac- 
cept the entry of a power from to 99. 

6) SW 4 may be used for error correction from the typewriter as 
discussed in Section III, Part E20. (For both number and power) 

7) Depress RELEASE and START. 

8) The answer will type out and the 1620 will halt. 

9) Depress START to continue the multiplication demonstration. 
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10) Messages will type out on all the error conditions men- 
tioned in Processing, Sec. D.2. The comment will change 
the second time either too long a number or too long a power 
is entered. 

11) Demonstrate the difference in processing time between (12) 2 
and (9999999)". 



Load Branch to 
Next Section 
Type Heading 
Halt 



Enter 
Number *" 



& Power 




Perform 
Multipli- 
cation 



Type j_ 
Answer 



SECTION VIII - COMBINATION OF EFFECTS 



Purpose - to illustrate 

1) Reading, processing and punching 

2) Development of a numeric polynomial. This numeric 
polynomial is punched into a card. 

3) Processing with prepared data 

4) Testing for last card 

5) Ability to alter processing via the sense switches 
Input 

Prepunched data cards. Columns 1 and 2 of each card is the number. 
Columns 4 and 5 represents the degree of the numeric polynomial 
which is to be developed based on the number. The other columns 
in the card are ignored. 

Output 

1) A heading card is punch out. 

NUMBER POWER TRUNCATED ANSWER 

2) The input number and power are punched In a card along with 
the answer and an X if the polynomial was truncated. 

3) The card count, number of multiplications performed, and an 
end of job message will type out at the end of each job. 

4) SW 1 ON stops reading and causes type out. 

5) SW 2 ON causes 125 cards to be read and punched. 
Processing 

1) Develop a numeric polynomial, A, of the form 
PR 

A « £ (NR) 1 
i = 1 
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where NR is from card columns 1 and 2 of data card and PR 
is from card columns 4 and 5. 

For example: suppose NR = 2, PR = 4. 

Then A = 2 + (2) 2 + (2) 3 + (2) 4 = 30 

2) If the power entered in card columns 4 and 5 of the data card 
is greater than 15, the program will truncate the numeric poly- 
nomial. An X will be punched in card column 17 of the output 
card to signal the fact that the polynomial has been truncated. 
Thus the program will develop polynomials only through the 
15th degree. 

3) Punch an output card. 

4) Test for SW 1, SW 2, and last card. 

5) Type card count, number of multiplications performed, and 
end of job. 

Demonstration Procedure and Significant Points 

1) Depress PUNCH START, READER START, and START. 

2) A heading card will punch. 

3) Data cards will be read, the numeric polynomial developed, and 
the output punched out. 

4) Turn SW 1 ON to stop the read/process/punch cycle. 

5) Depress NON-PROCESS RUNOUT on punch unit but do not re- 
move the two blank cards. 

6) Repeat procedure with SW 2 ON. 

7) 80/80 list the output cards. 

8) Be sure to include a few data cards with a power greater than 
15 (in columns 4 and 5) so that the program will truncate the 
polynomial and place an X In column 1 7 of the output card . 

9) If a 402, 403 or 407 isn't conveniently available, the demon- 
strator could show a previously listed output from this input 
deck. 
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Load Branch to 
End Routine 
Type Heading 
Halt 



Initialize 
I/O Areas 
& Counters 



Read 



Increment 
< Hard Count 
(5 Power Co\. nt 



Punch 



Off 





Off 



Cnt=125 



Cnt#L25 



Type Card f. 
Count & 
Num. 



Develop 
Numeric 
Polynomial 



Increment 
Powe^ Ct. 

Mult. Ct. 
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OPERATING INSTRUCTIONS 



Before the demonstration is given the operator must prepare the typewriter 
and the demo heading. 

The typewriter should have the margins set at 15 and 90 and a tab stop at 
50. 

One card should be placed behind the deck, on it should be the name of 
the group to whom the demo is being given. This card may contain up to 
60 columns of information and should be centered at card column 30. 

If Switch 3 is ON operating instructions will be typed as the demonstration 
proceeds. 

To load the program: 

1. Depress RESET and INSERT. 

2. Type in 160001000000 

3. Depress RELEASE and START. 

4. Depress INSTANT STOP and RESET. 

5. Depress LOAD. 

The first part of the program will load and a message will be typed: 

SW 3 ON FOR PRE -DE MO INSTRUCTIONS 

The operator should set SW 3 and depress START. SW 4 is normally OFF. 

When the program is completely loaded the program halts . The operator 
should set the paper in the typewriter to a clean page and place a supply 
of cards in the card punch and card reader. 

When the group arrives the operator depresses START and the demonstration 
begins. To repeat any section depress START. To go on to the next section 
depress RESET, INSERT, RELEASE and START. 

The cards read in section one are not used and may therefore be punched or 
blank. The cards read in section 8 require input data, for the format see 
section 8, typical input is included as Deck II of this package. 
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All punched output is listable. Therefore, it is desirable to have a 407 
with an 80-80 board ready so that punched output may be listed. 

If the operator is familiar with DEMOPAK he may want to remove the pre- 
demo instructions. To do this remove the first twenty -five cards, the first 
card in the deck will then be numbered 200. 

Any section may be deleted by removing that section's cards from the deck 
(see page 2 ) or after the program is loaded clear the flag from that section" 
thousand position. 

The next five pages show a type out of the section headings first with SW 3 
ON and then OFF. 
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160001000000RS 



SW3 ON FOR PRE-DEM0 INSTRUCTIONS 
MARGINS SHOULD BE SET AT 15 AND 90 
SET ONLY ONE TAB STOP AT 50 

PROGRAM CALLS FOR 1 DATA CARD, CC 1 TO 60 (CENTERED AT CC 30) 

CONTAINING NAME OF GROUP FOR WHOM DEMO IS BEING GIVEN 
SW3 ON WILL GIVE INSTRUCTIONS AS YOU GO 
ERROR MESSAGES WILL PRINT ON TYPEWRITER INPUT ERRORS 
TURN TO CLEAN PAGE, PUSH START 
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1620 FUNCTIONAL DEMONSTRATION 
FOR 

(NAME OF GROUP GOES HERE) 

DEMONSTRATING 
ADDRESS FUNCTION 

HH)0 CARD HEADING-PROGRAM AND DATA INPUT 

2000 CARD OUTPUT 

3000 VARIABLE LENGTH ALPHA OR NUMERIC TYPEWRITER I/O 

ifOOO ADDITION OF A COLUMN OF FIGURES 

5000 DIGITS TO ALPHABETIC 

6000 RAPID SUCCESSIVE ADDITION 

7000 SUCCESSIVE MULTIPLICATION 

8000 COMBINATION OF EFFECTS 

DEPRESS 

START TO EXECUTE OR REPEAT A FUNCTION 

RESET, INSERT, RELEASE, START TO EXECUTE THE NEXT FUNCTION 
RESET AND INSERT 1*90 X 00 TO EXECUTE FUNCTION AT ADDRESS 0X000 

PROG SW3 ON - INSTRUCTIONS, SW1 , AND SW2 SETTINGS ARE PRINTED 

PROG SW4 - TYPEWRITER ERROR CORRECTION 



CARD READING-PROGRAM AND DATA INPUT 

READ CARDS - SW1 , SW2, OFF 

STOP READING — SW1 , ON 

READ 125 CARDS — SW2, ON 
I/O - PROGRAM OR STOP 



CARD OUTPUT 

PUNCH DATA CARDS CONTAINING RANDOM NUMBERS 
SW1 ON TO STOP PUNCHING 
SW2 ON TO PUNCH 125 CARDS 
I/O TO STOP 



VARIABLE LENGTH ALPHA OR NUMERIC TYPEWRITER I/O 



SW1 ON SW2 OFF FOR NUMERIC 

SW1 OFF SW2 ON FOR ALPHA-NUMERIC 

TYPE IN UP TO 65 DIGITS OR LETTERS 



-36- 



ADDITION OF A COLUMN OF FIGURES 

SV/1 ON TO SHOW EACH SUBTOTAL 
OVERFLOW TO STOP 



DIGITS TO ALPHABETIC 

SW1 , SW2 — - ON OR OFF 

OVERFLOW TO STOP 

TYPE IN ANY TWO DIGIT NUMBER 



RAPID SUCCESSIVE ADDITION 

PUSH START THEN CHANGE SW 2 TO STOP ADDITION 
OVERFLOW TO STOP 



SUCCESSIVE MULTIPLICATION 

TYPE UP TO 7 DIGITS 

THEN TYPE A 2 DIGIT POWER 



COMBINATION OF EFFECTS 



SW2 ON READS 125 CARDS 
SW1 ON STOPS READER 
OFLOW TO STOP 
LOAD DATA, PUSH START 



END OF DEMONSTRATION 
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1 60001 OOOOOOf:; 



SW3 ON FOR PRE-DEMO INSTRUCTIONS 



1620 FUNCTIONAL DEMONSTRATION 
FOR 

(NAME OF GROUP GOES HERE) 

DEMONSTRAT I NG 

ADD 1000 SHEADING-PROGRAM AND DATA INPUT 

3000 VAR?ABLE P LENGTH, ALPHA OR NUMERIC TYPEWRITER I/O 

1*000 ADDITION OF A COLUMN OF FIGURES 

5000 DIGITS TO ALPHABETIC 

6000 RAPID SUCCESSIVE ADDITION 

7000 SUCCESSIVE MULTIPLICATION 

8000 COMBINATION OF EFFECTS 



CARD READING-PROGRAM AND DATA INPUT 



CARD OUTPUT 



VARIABLE LENGTH, ALPHA OR NUMERIC TYPEWRITER I/O 



ADDITION OF A COLUMN OF FIGURES 
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DIGITS TO ALPHABETIC 
RAPID SUCCESSIVE ADDITION 

SUCCESSIVE MULTIPLICATION 

COMBINATION OF EFFECTS 
END OF DEMONSTRATION 
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TO ADD A SECTION 



It is recognized that in order to make the demonstration more meaningful to 
certain groups, an additional section or sections should be added. 

When adding a section certain procedures must be observed: 

1) A section must start at an even thousands position, one 
to nine. 

2) A section may not use more than 1800 storage positions, 
see table page 2 . 

3) A section must have a flag at its thousands position. 

4) The NEXT subroutine must be used. 

5) The section must be written in 1620/1710 SPS. 



6) To include the section in the deck remove the first two 
and the last seven cards from the SPS condensed deck 
and insert it between Section 8 (card 8047) and the math 
tables (card 400). 

A typical section might start something like this: 



DORG 9000 

B BEGIN, 0103,08, SET FLAG OVER 9000 

HEADIN DAC 17, AN EXTRA SECTION® 

BEGIN BTM NEXT, 9000 , , SET UP LINKAGE TO END OF 

DEMONSTRATION 
BTM ALPHA, RCTY+2 , , RETURN CARRIAGE THREE 

TIMES 

BT M ALPHA , HEADIN , , PRINT HEADING 

BNC 3 HALT, , , BRANCH AROUND OPERATING 

INSTRUCTIONS 
BTM ALPHA , INSTR , , TYPE OPERATING 

INSTRUCTIONS 

HALT H 

RCTY DC 4,0003, HALT+ 11 

NEXT DS ,17608 

ALPHA DS ,00694 



The writer, of course, should read over the section on the subroutines very 
carefully and take advantage of them . 
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The title of the section must have its high order address at location 9012 
and 13 so that it will be printed by the demonstration heading subprogram. 
The field in position 9011 (i.e. 0103) is used in the Alpha subprogram. 
The heading may be any length. 
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DEMONSTRATION NARRATIVE 



Prior to demo 



Margin and tabs are set and a new page is ready for typing. The program has 
been loaded and the read hopper is full of blank or punched cards. A demo 
started at this point and using a narrative as follows, can be given in 30 to 
40 minutes. 



Introduction 



This is the IBM 1620 computer. Stored in its memory at this moment is a 
series of instructions called a stored program. These instructions are 
designed to demonstrate to you the various functions of this computer system. 

When I push START we will begin to execute the instructions in sequence. The 
first portion of this program is typing out a title for our demonstration. The 
system is now typing out what it will demonstrate, including the starting location 
for each program section. For example, starting in computer location 1000 there 
is a program to demonstrate card reading. In location 2000 a card output program 
begins, and so on. The typewriter is now typing 7000, a program to show multi- 
plication speed. And starting at 8000, there is a section to show the various 
functions working together on an actual problem. 



1620 FUNCTIONAL DEMONSTRATION 
FOR 

BASIC COMPUTER SYSTEMS CLASS 

DEMONSTRATING 

ADDRESS FUNCTION 

1000 CARD READING-PROGRAM AND DATA INPUT 

2000 CARD OUTPUT 

3000 VARIABLE LENGTH ALPHA OR NUMERIC TYPEWRITER I/O 

4000 ADDITION OF A COLUMN OF FIGURES 

5000 DIGITS TO ALPHABETIC 

6000 RAPID SUCCESSIVE ADDITION 

7000 SUCCESSIVE MULTIPLICATION 

8000 COMBINATION OF EFFECTS 



The program is also designed to type out a series of instructions to the operator. 
These instructions will be typed when this switch (Sw 3) is in the ON position. 
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DEPRESS 

START TO EXECUTE OR REPEAT A FUNCTION 

RESET, INSERT, RELEASE, START TO EXECUTE THE NEXT FUNCTION 
RESET AND INSERT 490X000 TO EXECUTE FUNCTION AT ADDRESS 0X000 

PROG SW3 ON - INSTRUCTIONS, SW1, AND SW2 SETTINGS ARE PRINTED . 

PROG SWt - TYPEWRITER ERROR CORRECTION 



Card Reading 

We have now arrived at the portion of program which demonstrates the 
reading of cards. The typewriter is busy typing out a set of instructions 
for this section of the program, and finally the computer stops in a manual 
status. When I depress START it will begin to read cards at the rate of 
250 cards a minute. 

CARD READING-PROGRAM AND DATA INPUT 

READ CARDS — SW1, SW2, OFF 
STOP READING — SW1, ON 
READ 125 CARDS — SW2, ON 
I/O - PROGRAM OR STOP 

While the computer is busy reading cards, I would like to point out the 
various features of the 1620 Data Processing System. You see in front 
of you the console of the machine. On the consble there is a row of keys 
which allow the operator to interrupt the automatic sequence of events in 
the program and to communieate with the computer by using the typewriter. 
The operator may be interested in looking into the memory of the machine 
or in changing the sequence of program steps. 

Above this row of keys is a set of lights that indicate the status of the 
machine at any moment. Right now we see that the machine is in the 
automatic mode, which means it is following a sequence of program steps. 
Depressing this key (SIE) will place the computer in a manual mode — 
notice the "MANUAL" light. — This will allow the operator to execute each 
instruction individually. We return to the automatic mode by pushing START. 
The computer can also be programmed to stop in the manual mode. This 
"MANUAL" light, then, indicates to the operator that the execution of the 
program has come to a halt and operator attention is required to continue. 

This "READER NO FEED" light indicates that the program has come to a card 
input command and that the computer is waiting for the card to mechanically 
pass through the card reader. Since the reader contains a buffer, reading 
and computing can occur simultaneously. If there is a large computation job 
between cards then the computer would probably not wait for the reader. 
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The lights here on the face of the machine indicate certain status to the operator 
(OP Register, MARS). Normally he will be interested in these lights when he has 
stopped the automatic operation of the program. For example, this particular 
register, the operation register, tells the operator which machine language instruc- 
tion is being executed at any particular moment. During an input operation, such 
as we see now, the operation register will indicate an input type command (point 
to 37). These lights appear very bright because the computer is waiting for the 
mechanical operation of card reading. Under normal computations in the automatic 
mode these lights will be very dim and the computer will be executing commands 
in sequence at electronic speed. 

An operator will also find this panel marked "Memory Address Register" extremely 
useful. This register will always indicate the address or memory location from 
which the computer is taking information. In this way it can be used to indicate 
to the operator where the next instruction is coming from or the location of data 
being used by any instruction. 

The memory unit of the computer, is located just behind this console. It's a 
very small box, about a foot cube, but large enough to store 20,000 digits of 
information. The remainder of the space is occupied by electronic circuitry 
for addressing any particular digit and for executing the instructions of the 
machine. 

Both the sequential program instructions and the data are stored in this memory 
unit. Each instruction is made up of 12 digits, which are accessed from the 
memory and executed in sequence. This sequential execution of instructions 
can be changed by a certain type of instruction known as "Test and Branch" 
commands. These are the commands we use to build logic into the program. 

I see the computer has read a thousand cards. It has been counting the cards 
read as I talked, has typed out a message, and stopped in MANUAL mode. 

STOP, STOP, STOP 1000 CARDS READ 

To show you that the program has actually been counting, I would like to repeat 
this section. You see, each segment of this demonstration program is designed 
so that the operator can return to the beginning. 

At any point I can alter the program by testing a switch, which appears here on 
the console. When I turn this switch ON the program will then branch to a dif- 
ferent section and it can tell me how many cards have been read up to this point. 
While I have been talking we have read 67 cards, and I see we have a message 
from the program saying 

67 CARDS READ, LITTLE JOB fiNICE) 
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Let's try it again. 
174 CARDS READ, GOOD READER, RIGHT 

This time to demonstrate that the reader is reading at a rate of 250 cards a 
minute, I would like to have you check the time required to read 125 cards. 
(Depress START). We have on the typewriter at the moment a message saying 

NOTE THE TIME AT START 

125 CARDS READ, 30 SEC. ON THE NOSE 
Let's go on to punched output. 

Punched Output 

By depressing some keys on the console I will be able to enter the next section 
of the program which will demonstrate card output. 

CARD OUTPUT 

PUNCH DATA CARDS CONTAINING RANDOM NUMBERS 
SW1 ON TO STOP PUNCHING 
SW2 ON TO PUNCH 125 CARDS 
I/O TO STOP 



When I depress START, the program will begin punching data cards containing 
random numbers. Again we will use a switch to stop the operation and we will 
have the opportunity to time the output (Depress START). 

While these cards are punching we are also doing some multiplication and other 
manipulations to develop the random numbers which are being punched on the 
card. Later we can take these cards to a listing machine such as the 407 and 
print the output. Let's see how many cards we have punched. 

90 DATA CARDS PUNCHED 

To demonstrate that the punch is punching at the rate of 125 cards per minute, 
I will turn Switch 2 ON and depress START. Apparently I have violated an 
instruction and receive a message. 

I FIND IT CONFUSING WHEN YOU HAVE BOTH SW1 AND SW2 ON, START AGAIN 

So for this portion of the program I must have only either Sw 1 or Sw 2 ON, but 
not both. Time ready. 
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The 1620 card read punch contains what we call a buffer. This means that 
the data from the processing unit can be transmitted to the card read punch 
at electronic rates and the computer may continue calculations while the 
mechanical action of punching is taking place. This allows overlapping of 
computing and input/output operation. Therefore, we are doing not only 
computations at this time, but we are punching cards at the maximum rate 
of the punch. We have been punching for exactly one minute and the type- 
writer tells us we have punched 125 cards. 

125 DATA CARDS PUNCHED 
Typewriter I/O 

Now let's go to the next portion of program which demonstrates the typewriter 
as in input/output device. We are also interested in demonstrating the fact 
that the data within this machine can be variable in length. If it requires 
three positions we can reserve three positions for each field. If the data 
requires 25 positions, we can program the machine for data 25 digits long. 
Regardless of the problem, we can make the most effective use of our storage. 

VARIABLE LENGTH ALPHA OR NUMERIC TYPEWRITER I/O 

SW1 ON SW2 OFF FOR NUMERIC 

SW1 OFF SW2 ON FOR ALPHA-NUMERIC 

TYPE IN UP TO 65 DIGITS OR LETTERS 

First, let me demonstrate some numeric input/output. The computer has now 
selected the typewriter and is waiting for me to enter information. Notice that 
the keyboard has been shifted for numeric input. I must also tell the computer 
that I'm through entering information so I hit a key on the typewriter called 
"RELEASE START". Under program control, the typewriter tabulates, types out 
a name AOl and prints back for me what was stored by typewriter input. 

123^56789 AOl = 123 1 t56789 

12 A02 = 12 

Now I will enter information which is longer than half a page. Watch this 
console register (MAR) as I type. In the BCD code (explain) we see that the 
first digit enters memory location 19841. The second goes into location 
19842. The third to 43 and etc. 

22222222222222222 222222222222222222 22222222222 
A03 = 2222222222222222222222222222222222222222222222 
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The program recognizes that we have entered more information than can be 
printed on half a page width. Therefore a program step returns the carriage 
rather than performing a tabulation. So the program recognized the fact that 
the field we entered was longer than half a page width. 

Now let's try some alphabetic information. I will turn switch 1 OFF and 
switch 2 ON. The typewriter is now selected in the alphanumeric mode. 
Why don't you enter your name. 

RAY PDCK 

You made a mistake. That's OK. I will place switch 4 ON, then depress 
RS and we can re-enter the correct information. 

RAY PECK AOk = RAY PECK 

NOW IS THE TIME FOR ALL GOOD MEN TO COME TO THE AID 

A05 = NOW IS THE TIME FOR ALL GOOD MEN TO COME TO THE AID 

Addition 

Let's proceed to the next section. The 1620 and I are now prepared to 
demonstrate the addition of a column of figures. It's typing out input 
instructions. 

ADDITION OF A COLUMN OF FIGURES 

SW1 ON TO SHOW EACH SUBTOTAL 

OVERFLOW TO STOP 

ENTER AN EIGHT DIGIT NUMBER 

123^5678 

ENTER COLUMN SIZE, TWO DIGITS 
22 

27160^916 

There's the result. Let's give it something a little bit more strenuous to 
do. How about all nines? 

ENTER AN EIGHT DIGIT NUMBER 
99999999 

ENTER COLUMN SIZE, TWO DIGITS 
99 

9899999901 

Let's see if it's doing it correctly. Let's add 9 to itself three times. 
Apparently, it must be an 8 digit number. There I entered a nine with 
leading zeros. Now 03. Correct. 
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ENTER AN EIGHT DIGIT NUMBER 
9 

THIS JOB IS TOO SMALL, START AGAIN 

ENTER AN EIGHT DIGIT NUMBER 

09 

ENTER COLUMN SIZE, TWO DIGITS 
03 

27 

By turning switch 1 on, I can see the intermediate sub- totals as we go along. 
Let's take a big number and add it to itself five or six times. This illustrates 
that it's actually doing the addition. 



ENTER AN EIGHT DIGIT NUMBER 
12345678 

ENTER COLUMN SIZE, TWO DIGITS 
06 

24691356 
37037034 
49382712 
61728390 
74074068 

74074068 

Let me show it to you again at electronic speed. 



ENTER AN EIGHT DIGIT NUMBER 
12345678 

ENTER COLUMN SIZE, TWO DIGITS 



22 



271604916 

Logic 

In this section we will demonstrate that a computer can perform logical 
decisions. It says "Type in any two digit number". Would you (one of 
audience) like to enter a number. Try some more. 



DIGITS TO ALPHABETIC 
SW1, SW2 — ON OR OFF 
OVERFLOW TO STOP 
TYPE IN ANY TWO DIGIT NUMBER 
10 TEN 
18 EIGHTEEN 
99 NINTY NINE 

84 EIGHTY FOUR 

1>0 FORTY 

- 48 - 



Try entering a 1. Ah, the program is designed to detect single digit numbers. 
Zero? How about 13? Perhaps the machine is superstitious. That's what I 
thought. What happens with a three digit number. An error message requesting 
two digits. I wonder what happens if we neglect to enter information. 



1 ONE 

ZERO 

13 I DO NOT LIKE THE NUMBER THIRTEEN 

123 ENTER ONLY TWO CHARACTERS PLEASE 

GO AHEAD AND ENTER TWO DIGITS 

23 TWENTY THREE 

56 FIFTY SIX 

39 THIRTY NINE 



So the computer has the ability to examine a number in its memory, make a 
logic decision based on that number, find the correct alphabetic words 
stored in its memory and print them out in their proper order. 

Successive Addition (Depress START) 

Again, we take the opportunity to show the speed of the 1620. The computer 
has examined switch 2 and will continue to add a 1 to a counter until I change 
the status of switch 2 . Notice that the operation register contains an 1 1 which 
is the code for addition. However, it is executing two commands in what we 
call a loop. After adding one to the counter, it will test the status of switch 2 
and return to the add instruction. When I turn switch 2 ON, the operation will 
stop and the contents of the counter will be printed out. How many additions 
have we done? What message did I get? Let's test the reaction of a few of you. 
Depress START, then with the same hand change switch 2. 



RAPID SUCCESSIVE ADDITION 

PUSH START THEN CHANGE SW2 TO STOP ADDITION 
OVERFLOW TO STOP 

017773 FASTER FASTER FASTER 

001622 YOU ARE TOO SLOW 

000417 SPEED IT UP CHARLIE 

000181 GET THE LEAD OUT 



Maybe I can get a good score by changing the switch first. 
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YOU MOVED SW2 TOO SOOM 
000 198 GET THE LEAD OUT 
000037 TRY IT ONE MORE TIME 



Ha! I'm gettin' good. 
SW2 TOO SOON 

Let's see what else the program has to say when Sw 2 is moved before 
START is depressed. 



PLAY FAIR 
WATCH THAT 
DIRTY PLAYER 
DONT CHEAT 



If I move the switch and depress START at the same time I can do pretty well. 



000 80 YOU CAN IMPROVE THIS 

000041 TRY IT ONE MORE TIME 

000062 FASTER ON THE SWITCH 

000041 TWO DIGITS IS FAST 

000054 YOU CAN IMPROVE THIS 



If I use the single instruction Execute Key (SIE) I can do much better. In 
the OPeration Register you see the step which tests Sw 2 and branches to 
the "Cheat" messages if it has been changed. Now you see the 11, an 
add, followed by a test of Sw 2, then an add, etc. (change Sw 2, 
depress START). 

000008 THAT WAS FAST ON SW2 

By going through the loop only one time I can really get a good comment. 



000001 YOU ARE NOW AN EXPERT 



Multiplication 

Here we will demonstrate the successive multiplication of a number 
containing up to seven digits. The number will be multiplied successive- 
ly times itself according to a 2 digit input number or "Power". Let's try 
99 cubed. 
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SUCCESSIVE MULTIPLICATION 



TYPE UP TO 7 DIGITS 

THEN TYPE A 2 DIGIT POWER 

NUMBER 99 

POWER 3 

ANSWER 0.97029900000000 TIMES TEN TO THE POWER 006 

Notice that the answer is printed in what we call floating point form. 
Using this technique we can work with numbers of any size. The result 
is printed as a decimal x some power of 10. Here the .970,299 x 10^ 
is another way of writing nine hundred seventy thousand two hundred 
ninety nine. We have 6 significant digits. 99 x 99 gives us a 4 place 
result, which when multiplied by 99 gives us 6 places. 

Let's try one with a simple answer. Give me a number. 12. Now, a 
power. 2. 

NUMBER 12 

POWER 2 

ANSWER 0.14400000000000 TIMES TEN TO THE POWER 003 

o 

The answer is .144 x 10 or 144. Here's something more strenuous. 

NUMBER 9999999 
POWER 99 

ANSWER 0.99999010004754 TIMES TEN TO THE POWER 693 
NUMBER 

The computer just performed 99 multiplications of a seven digit number. 
Notice that this number would have 693 significant digits, but we are 
keeping only 14. Each successive multiplication, then, consists of the 
7 digit input number times the 14 digit result of former multiplication. 

S,ince this machine uses a variable word length concept we could develop 
all 693 digits of this multiplication if required by our problem. In this 
way a variable word length machine allows you to carry out your arithmetic 
to any required degree of accuracy. 

Polynomial Solution 

In this section we will demonstrate the solution of a complete problem. 
We will input a card containing two values, the variable called NR and 
the degree of a . polynomial called PR. The polynomial is of the form 
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NR + NR + NR + NR . . . etc. on up to NR rK . 

COMBINATION OF EFFECTS 

SW2 ON READS 125 CARDS 
SW1 ON STOPS READER 
OFLOW TO STOP 
LOAD DATA, PUSH START 



When I push START we will read an input card, perform the multiplications 
and additions of the polynomial and punch the result. 

The program is designed to calculate all polynomials to the 15th degree or 
less. If the degree is greater than 15, the punched result is for the 15th 
degree problem and the output is flogged by an X in column 17. 

On the console you see the flashing of lights that is typical of the 1620 
operating at electronic speed. 

NUMBER OF CARDS READ 158 

NUMBER OF MULTIPLICATIONS PERFORMED 1799 
END OF JOB, LOAD DATA AND PUSH START 

We have read the last data card and typewriter has given us the number 
of multiplications performed. 

For this next run I will turn switch 2 to the ON position so that the computer 
will stop after 125 cards have been read. Watch your watches. (Depress 
START) . Since the reader and the punch are buffered we should be able to 
overlap all of the processing with the reading and punching. We should, 
therefore, punch at the maximum rate of 125 cards per minute and still per- 
form all of the computations. If it takes more than one minute to punch 125 
cards, then some of the computations require more time than is required to 
punch a card. 

NUMBER OF CARDS READ 125 

NUMBER OF MULTIPLICATIONS PERFORMED 1360 
END OF JOB, LOAD DATA AND PUSH START 
How did we do? 
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Conclusion 

END OF DEMONSTRATION 

That was an introduction to the IBM 1620 computer and a relatively simple 
demonstration of some typical computer functions. The kind of logic, the 
Input Output capabilities and the computation speeds demonstrated here 
can be put to use to solve both the simple and the complex engineering, 
scientific, mathematical or data processing problems of your company. 
Experience has proven that the 1620 computer in any or all of these roles 
produces money saving results. 
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SAMPLE OUTPUT 



1620 FUNCTIONAL DEMONSTRATION 
FOR 

RAY PECK, BILL OLMO AND DAVE MONTGOMERY 

DEMONSTRATING 

ADDRESS FUNCTION 

1000 CARD READING-PROGRAM AND DATA INPUT 

2000 CARD OUTPUT 

3000 VARIABLE LENGTH ALPHA OR NUMERIC TYPEWRITER I/O 

4000 ADDITION OF A COLUMN OF FIGURES 

5000 DIGITS TO ALPHABETIC 

6000 RAPID SUCCESSIVE ADDITION 

7000 SUCCESSIVE MULTIPLICATION 

8000 COMBINATION OF EFFECTS 

DEPRESS 

START TO EXECUTE OR REPEAT A FUNCTION 

RESET, INSERT, RELEASE, START TO EXECUTE THE NEXT FUNCTION 
RESET AND INSERT 490X000 TO EXECUTE FUNCTION AT ADDRESS 0X000 

PROG SW3 ON - INSTRUCTIONS, SW1 , AND SW2 SETTINGS ARE PRINTED 

PROG SW4 - TYPEWRITER ERROR CORRECTION 



CARD READING-PROGRAM AND DATA INPUT 

READ CARDS - SW1 , SW2, OFF 

STOP READING — SW1 , ON 

READ 125 CARDS — SW2, ON 
I/O - PROGRAM OR STOP 

STOP, STOP, STOP 1000 CARDS READ 

27 CARDS READ, LITTLE JOB (NICE) 

43 CARDS READ, LET ER RUN CHARLIE 

124 CARDS READ, GOOD READER, RIGHT 

8 CARDS READ, GOOD READER, YES 

12 CARDS READ, TRY TIMING, SW 2 ON 

9 CARDS READ, TRY TIMING, SW 2 ON 
7 CARDS READ, TRY TIMING, SW 2 ON 
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NOTE THE TIME AT START 
125 CARDS READ, 30 SEC. ON THE NOSE 



CARD OUTPUT 

PUNCH DATA CARDS CONTAINING RANDOM NUMBERS 
SW1 ON TO STOP PUNCHING 
SW2 ON TO PUNCH 125 CARDS 
I/O TO STOP 

12 DATA CARDS PUNCHED 

7 DATA CARDS PUNCHED 

I FIND IT CONFUSING WHEN YOU HAVE BOTH SW1 AND SW2 ON, START AGAIN 

10 DATA CARDS PUNCHED 

125 DATA CARDS PUNCHED 



VARIABLE LENGTH ALPHA OR NUMERIC TYPEWRITER I/O 

SW1 ON SW2 OFF FOR NUMERIC 

SW1 OFF SW2 ON FOR ALPHA-NUMERIC 

TYPE IN UP TO 65 DIGITS OR LETTERS 

COME, COME, TURN ON EITHER SW1 OR SW2 

1111122222333334444455555666*$ A01 . 1111122222333334444455555666 

11111 22222333334444455555 6666*$ 

A02 - 11111222223333344444555556666 

MAKE UP YOUR MIND, TURN OFF EITHER SW1 OR SW2 

I AM AN IBM 1620RS A03 « I AM AN IBM 1620 

HOW DO LIKE THIS FOR A DEMONSTRATION OF THE 1620RS 

A04 - HOW DO LIKE THIS FOR A DEMONSTRATION OF THE 1620 

THIS IS AN EXAMPLE OF ERROR CORRECTION, SW 4 ON THEN K5 

THIS IS A NEW MESSAGE, SW 4 OFF AND THIS WILL PR INTO 

A05 » THIS IS A NEW MESSAGE, SW 4 OFF AND THIS WILL PRINT 
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ADDITION OF A COLUMN OF FIGURES 

SW1 ON TO SHOW EACH SUBTOTAL 
OVERFLOW TO STOP 
ENTER AN EIGHT DIGIT NUMBER 
1 1 1 1 11 1 IRS 

ENTER COLUMN SIZE, TWO DIGITS 

1 OP^ 

22222222 
33333333 
kkkkkkkh 
55555555 
66666666 
77777777 
88888888 
99999999 
111111110 

111111110 
ENTER AN EIGHT DIGIT NUMBER 

00001 23ARo 

ENTER COLUMN SIZE, TWO DIGITS 

12R C 

2468 

3702 

4936 

6170 

7404 

8638 

9872 
1 1106 
12340 
13574 
14808 

14808 

ENTER AN EIGHT DIGIT NUMBER 
11111111RS 

ENTER COLUMN SIZE, TWO DIGITS 

ICR* 

111111110 
ENTER AN EIGHT DIGIT NUMBER 
1 23456789K 

I SAID ONLY EIGHT DIGITS 
ENTER AN EIGHT DIGIT NUMBER 
1 2345678R5 

ENTER COLUMN SIZE, TWO DIGITS 

9? 

THIS JOB IS TOO SMALL, START AGAIN 
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ENTER AN EIGHT DIGIT NUMBER 
1 2345678RS 

ENTER COLUMN SIZE, TWO DIGITS 
61728390 



DIGITS TO ALPHABETIC 

SW1, SW2 — ON OR OFF 

OVERFLOW TO STOP 

TYPE IN ANY TWO DIGIT NUMBER 



fp.c 


7 ron 




7 POD 
L C.KU 


6IK 


SIX 


06RS 


SIX 


8* 


EIGHT 


08RS 


EIGHT 


1 23RS 


ENTER ONLY TWO CHARACTERS PLEASE 


12RS 


TWELVE 


14RS 


FOURTEEN 


29RS 


TWENTY NINE 


r<; 


GO AHEAD AND ENTER TWO DIGITS 


99K 


NINTY NINE 


83RS 


EIGHTY THREE 


13RS 


1 DO NOT LIKE THE NUMBER THIRTEEN 



RAPID SUCCESSIVE ADDITION 

PUSH START THEN CHANGE SW 2 TO STOP ADDITION 
OVERFLOW TO STOP 

018890 FASTER FASTER FASTER 

015183 YOU ARE TOO SLOW 
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009612 


FASTER ON SWITCH2. TO 


REDUCE 


SUM 


003696 


SPEED IT UP CHARLIE 






00 Wl 


THE 1620 IS FASTER THAN YOU 


ARE 


003971 


GET THE LEAD OUT 






004875 


1 KNOW YOU CAN DO BETTER CHARLIE 


004113 


FASTER ON SWITCH2 TO 


REDUCE 


SUM 


002733 


FASTER FASTER FASTER 






000485 


YOU ARE TOO SLOW 






000490 


SPEED IT UP CHARLIE 






000227 


GET THE LEAD OUT 






000016 


YOU CAN IMPROVE THIS 






000021 


TRY IT ONE MORE TIME 






000025 


FASTER ON THE SWITCH 






000018 


TWO DIGITS IS FAST 







YOU MOVED SW2 TOO SOON 
SW2 TOO SOON 
PLAY FAIR 
WATCH THAT 
DIRTY PLAYER 
DONT CHEAT 

YOU MOVED SW2 TOO SOON 
000003 THAT WAS FAST ON SW 2 
000005 YOU ARE NOW AN EXPERT 
000001 GOOD SHOW OLD BOY 

000001 THAT WAS FAST ON SW 2 

000002 YOU ARE NOW AN EXPERT 
031517 FASTER FASTER FASTER 
003644 YOU ARE TOO SLOW 



SUCCESSIVE MULTIPLICATION 

TYPE UP TO 7 DIGITS 

THEN TYPE A 2 DIGIT POWER 

NUMBER 1 2RS 

POWER 2PS 

ANSWER 0.14400000000000 TIMES TEN TO THE POWER 003 
NUMBER 10RS 
POWER 99« 

ANSWER 0.10000000000000 TIMES TEN TO THE POWER 100 

NUMBER RS 

GO AHEAD 
NUMBER 9999999RS 

POWER 99tf 

ANSWER 0.999990 10004 75 ^ TIMES TEN TO THE POWER 693 
NUMBER 123*t567»S 

ENTER ONLY SEVEN DIGITS HOW OFTEN MUST I TELL YOU 
NUMBER SPS 

POWER 123*S 

THE POWER MAY NOT EXCEED TWO DIGITS 
POWER 123RS 

THE POWER MAY NOT EXCEED TWO DIGITS CHARLIE 
POWER 99*S 
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NUMBER OF CARDS READ 



21 



ANSWER 0.2951 266543060 3 TIMES TEN TO THE POWER 095 



NUMBER OF MULTIPLICATIONS PERFORMED 



END OF JOB, LOAD DATA AND PUSH START 



NUMBER 01 23^5 



NO HIGH ORDER ZERO PLEASE 



NUMBER OF CARDS READ 125 



NUMBER 123456RS 



NUMBER OF MULTIPLICATIONS PERFORMED 



1^06 



END OF JOB, LOAD DATA AND PUSH START 



POWER 1P C . 



ANSWER - 123^56 



END OF DEMONSTRATION 



NUMBER 123456RS 
POWER ORS 
ONE 

NUMBER 1 1 1 1 1 1 1RS 
POWER 25RS 

ANSWER 0.1 3929520867090 TIMES TEN TO THE POWER 152 

COMBINATION OF EFFECTS 

SW2 ON READS 125 CARDS 
SW1 ON STOPS READER 
OF LOW TO STOP 
LOAD DATA, PUSH START 

NUMBER OF CARDS READ 8 

NUMBER OF MULTIPLICATIONS PERFORMED 5k 
END OF JOB, LOAD DATA AND PUSH START 
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* 

* A PPnr,PAM RiR DEMONSTRAT I NG VARIOUS FUNCTIONS 

* OP THF IRM 1620 
* 











* 




■x-*-* -a-******- -tut*** *• * 










* 




PRF-ncMO INSTRUCTIONS 










•* 






i 4 1 ? 


30 


O.-.A ft7 


00100 


OSTART 


WATY 


MFSSl 


1 fi t 1 A 


34 


0^000 


OPTO? 




RCTY 






48 


OOOOO 


n 1 




H 




i n, u 3 8 


47 


00ft4? 


11300 




RNC3 


OF imal 




3 q 


00733 


im nn 




WATY 


M^SS? 


1 o 4 6 2 


34 





Oil 0? 




RCTY 




10 4 74 


3Q 


nop 03 


OO100 




WATY 


MFSS3 


01486 


34 


1"000 


01 1 op 




RCTY 




4 8 


30 


8 5 9 


ooiOO 




WATY 


M p S S 4 


r>, * 1 n 


34 


n 1 


OO] 0? 




RCTY 






30 


0,' )o q 5 


OOi 00 




WATY 


MFSS 5 




34 


OOOOO 


001 op 




RCTY 




1 5 4 ft 


30 


10 9 3 


001 00 




WATY 


MFSS6 


m^.a 


34 


noooo 


00] 02 




RCTY 




01570 


1 Q 


01 235 


Oil 00 




WATY 


CLOWN 


00 5 R? 


34 


00000 


ooi 02 




RCTY 




00^04 


30 


01173 


001 00 




WATY 


M C SS 7 


HOftOft 


34 


OOOOO 


00102 




RCTY 




618 


34 


OOOOO 


00102 




RCTY 




00630 


48 


00000 


OiOOO 




H 




00642 


36 


00000 


O0800 


OFINAL 


RNCO 


OOOOO 


00654 


40 


00000 


OOOOO 




8 


OOOOO 


O0ftft7 




01033 




MFSS1 


DAC 


33,SW3 ON FOR PRE-DFMO INSTRUCTIONS® 


oo 7 33 




00035 




MFSS2 


DAC 


35, MARGINS SHOULD BE SET AT 15 AND 90e 


00803 




O0028 




MFSS3 


DAC 


28, SET ONLY ONE TAB STOP AT 50> 


O0R5P 




0004] 




MFSS4 


DAC 


4], PROGRAM CALLS FOR 1 DATA CARD, CC 1 TO 60 


00Q4] 




000? 1 






DAC 


21, %CENTEREO AT CC 30n® 


Q 8 3 




1003Q 




MESS5 


DAC 


3^, CONTAINING NAME "OF GROUP FOR WHOM DEMO 


1 Oftl 




0001 6 






DAC 


1.6, IS BEING GIVEN© 


o 1 o Q3 




00040 




MESS6 


DAC 


40,SW3 ON WILL GIVE INSTRUCTIONS AS YOU GO® 


1173 




00031 




MESS7 


DAC 


31, TURN TO CLEAN PAGE, PUSH START® 



i ? 3 5 

1 3 ? 5 

0040? 



00 SCO 

10500 

00 5 1 ? 

00524 

1 O 5 'Jft 
548 
11 =.60 
00 572 
00584 
00506 
0Ofti8 
006PO 
0Oft3? 

ofmoo 



00045 
00008 



16 00518 

33 qqqqo 

1 1 008 1 8 

1 4 005 1.8 

47 0051? 

25 10408 

?<~ O0404 

P8 O04O3 

2^ O040p 

3p 0040? 

36 OOOOO 

40 OOOOO 



1 000 
OOOOO 

0-1 
OOOJO 

01 poo 
00400 
00400 
00400 

00400 
OOOOO 
00500 
00000 



0040^. 








4 A 


37 


1 8687 


00500 


004 1 P 


34 


OOOOO 


010? 


10 4 3 


48 


0010 


1 1 


0044? 


25 


1 880" 7 


00400 


004^4 


1 7 


006O4 


18533 


11466 


41 


lift 71 


0O3O0 


4 7 8 


1 7 


106O4 


17013 


4 


1 6 


00 5 1 3 


1 OOO 


oito? 


4 4 


5 8 


O Q Q Q Q 


514 


1 7 


1 7? 06 


1 M 3 


105P6 


?6 


1 8000 


4 41 




1 ft 


1 OO 1 5 


000 


115 5 


?6 


H5R5 


015 13 


5 ft p 


i 1 


5 >"! 5 


100 J? 


1 5 7 4 


3 1 


1 OO 1 ft 


oaoqq 


01 ^ Rft 


1 7 


6 ; J 4 


tflOQQ 


r> c q 


1 1 


one- p 


1 ^ O _ "1 



CLOWN 



DINIT 



START 



DAC 
DAC 
DEND 



DORG 

TFM 

CF 

AM 

CM 

RNE 

TD 

TD 

TD 

TD 

SF 

RNCD 
R 

DEND 



4^, ERROR MESSAGES WILL PRINT . ON TYPEWRITER INPUT 
8, FRRORS® 
DST ART 

INITIALIZATION PROGRAM 
-)f.#.if. .)<. 

500 

*fVl 8,1.600 ' ' 

99999,,, 
*-9,l,10 
*- 2 1,1 0,10 
DINITM2 
405,400 
404,400 
403,400 
402 ,400 
40? 



CLEAR FLAG FROM THOUSANDS 



PROGRAM LOADER 



DINIT 

*"***#.*### *■-)(■•*■* -inf.* * 

DFMONSTRAT ION HEADING 



DORG 


406 




RACD 


HE AO , , , 


INPUT HEADING LINE 3 


RCTY 






H 


0,10100,6 




TD 


HPAnRM,400 




RTM 


ALPHA ,0FM0 




RMC3 


HDFND , , , 


THIS HAS REEN CHANGED 


RTM 


ALPHA, FUNCT, ,, 


FOLLOWING LISTS 


TFM 


TFSTFM 1 ,1000, , 


INCLUDED FUNCTIONS 


RNF 


NFXTF , 00999 , , 


IS FUNCTION INCLUDED 


RTM 


FDIT,*-1 , , , 


YFS -EDIT AND PRINT 


TF 


P0NUMR-? ,C1 , , 


ADDR AND TITLE 


TFM 


FONUMRf-l 4 ,00000 , 8 




TF 


#r T 35 ,TPSTFr-l 1 




AM 


*r T 23 , 1 ? , 1 




TR 


FONUMRC,! 5 ,qqqqq, , 


TITLE 


RTM 


ALPHA , c ONUMR-2 , , 


PRINT 


AM 


T^STPf. 8 « 1 • 1 , 


INCR FOR NEXT FUNCT 



o i m i 16 OPS) n r n p. J n 

O'H?? 4 7 0050? 01? (10 

nn<,n ^ ifiOOfl 10? 

^ ->646 47 O0670 0P400 

r>")658 17 00694 1 7981 

00A70 17 1 7'f,n« nOOO 

0068? 49 o^noo ooooo 
n06 R9 



00693 
00694 

00718 
00710 
00742 
00754 
00766 
00 77R 
0H7O0 
OORn? 
OOP 1 4 
0OR26 

'10R50 
00R62 
00R70 
00R70 
O0RR2 
O0R°4 
00906 
0091 R 
ooq-^O 
0097R 

00038 

00950 
00962 
00964 
00964 
00976 
00844 



00005 
?6 00RR8 
26 00RR1 
26 007R3 
1? O0751 
?6 00844 
3? 00843 

I 00949 
41 00870 
41 00R70 
16 O08?5 
14 00P44 
46 00°1R 
^4 00000 

II 00825 
40 00R14 



00693 
00693 
00693 
00^-? 
qqqqq 

ooooo 

000-0 
0084? 
00841 
000-0 
qoqp p 
01 ?00 
0010? 
000-1 
00000 



4=, 00964 99990 

■}Q qqqqq 00100 

1 1 00949 000-1 

?6 00R88 00881 

11 00888 000-2 

49 0080? 00000 

14 0084? 999R9 

47 00964 01200 

42 00000 00000 

11 00881 000-? 

49 00870 00000 
00004 



ALL FUNCTIONS LISTED 
YFS 

LISTS OPERATING INSTR 
GOES TO FIRST FUNCt 



TM TcsTFr T R, 10*10 

RME TFSTF,,, 

RCTY , , , 

RNIC 3 HOFND 

BTM ALPHA , I NSTR, » 

H!">FND PTM N-XT",0 

R , , , 

DORG *- 4 

* PRINT ALPHA AND SKIP SUBROUTINE 

5 

WATYf-6 »ALPHA-1 » , INIT TYPE_ ADDR 
F I NDRMfr 1 1 » ALPHA— 1, , I N I T RM SEARCH 



ALPHA 



DS 
TF 
TF 
TF 
SM 
TF 
SF 
TFM 
RD 
BD 

SKIP TFM 
SKIPCM CM 
BE 



*r,3 R »ALPHA-l,, 
*& 2 3 » 2 » 1 * " 
LINES, 99999 
LINFS-1 

LINFCMTrll ,0 » 10 » 
FlNDRM,LINES-2 
FtNDRM,LlNES-3 
*f-2^,0,10, 
LINES, 99999,10 
L TNFCM 



RCTY 



RCTY 
AM 
B 



SKlPCMfVll,l,10, 
SKIPCM 
DORG *-3 
F T NORM RNR UPRM, 99999 ~ 
WATY WATY 99999 

am l iNECMfrii rrno, 

TF 
AM 

B SKIP 
-5" 

LINES- 2 ,99]9W,10, 
UPRM 

» » » _ 
-9 

F I NDRMfrl 1 »Z» 10 » 
B FINDRM 
LINES DS 4,RCTYfr6 



STORE" L'fNE AND SK i P 
INFORMATION 



INIT LINE PRINTED 



INIT LINE'S SKIPPED 



INCR LINES SKIPPED 



I NCR L1NF5 PRINTED 



DORG 
LINFCM CM 
BNE 
BB 

DORG 
AM 



UPRM 



WATY&6 , F I NOTMTrl 1 , , UP' D~ATE~TYP~E A DDR 
WATTf T 6»2»rO 



ALL LINE'S PRINTED 

YES 

INCR RM~5EA RCH 



NUMERIC TO ALPHA EDIT SUB80U.T LNE 



1 7?00 
1.7? 04 
1 7?06 
17 218 
1 7230 
1 7242 
1 7254 
1 7266 
7278 
.7290 
.7302 
.7314 
7126 
7118 
.7150 
:7362 
7174 
l7386 
71P8 
! 741 
7422 
17424 
i7424 
17416 
.7448 
. 7460 
.747? 
! 7484 
7496 
1 7S08 
1 7 ? 
1 7 5 ? 8 
17602 



1 6 
1 6 
1 6 
26 
44 
1 6 
26 
1 2 
44 
26 
41 
1 6 
1 1 
1 1 
24 
46 
26 
?5 
4? 

1 6 
26 
1 6 
1 1 
26 
2~-> 
26 
1 6 

49 



00005 
17344 
17392 
1 7459 
1 7 ? 6 ^ 
1 7278 
1 74^ Q 
17 313 
17 313 
17290 
1 7337 
1 7424 
Qoqqg 
1 7344 
] 7337 
1.7205 
99999 
1 7416 
qqqqo 
OOOOO 

1739? 
1 7454 
99999 
1 7344 
1 7495 
17519 
17 514 
99999 



19001 

1 73 26 
000-0 
1 7205 
gqqq9 
OOOKO 
1 7205 
000-1 
99999 
17313 
99999 
000-0 
000-2 
000-1 
17337 
01300 
17344 
00400 
OOOOO 

1747? 
17344 
999R9 
000-? 

1. 7 3 3 7 
99999 
17344 

OOOPO 
OOOOO 





DORG 


17200 




DS 


5 


EDIT 


TFM 


D I G T T f-, 1 8 » EDNUMB , 




TFM 


EDEN DfV6 ♦DIGIT » V 




TFM' 


SIGN&ll ,00,10,, 




TF 


*F,23 ,FDIT-i 




RNF 


PLUS, 99999 




TFM 


SlGNf,1 1 ,20,10., 


PLUS 


TF 


FLGfrl] ,EDlf-i 


DFCFLG 


SM 


FLGM1 ,1 »l6 


FLG 


BNF 


DECFL^»99999» * 




TF 


DIGITS 11 »*-! 


DIGIT 


BD 


NUMB ,99999 




TFM 


99999,0 ,10, 


UPA 


AM 


*-6»2,lC 




AM 


I G I T fr 1 1 » 1 * 1 




C 


EDIT-1,DIGIT&11 


EDEND 


BI 


99999, 01300,, 




TF 


*&18»niGif&18* ♦ 




TD 


99999,400 




BB 






DORG 


*- 9 


NUMB 


TFM 


EDENDfr6 ,600^ ,, 




TF 


SIGNfr6,DIGITfV18 


SIGN 


TFM 


99999 , 99999* 10 




AM 


DIGlT*18t2»lO . 


GOON 


TF 


*f,23,DIGlf&ll 




TD 


MOVE&ll ,99999, » 




TF 


*&18,DIGIT&18 


MOVF 


TFM 


99999,70,10, 




B 


UPA 



1 7Anf, i"non 

i7f,ilft ?6 17*81 17607 

17620 11 1 ?6 78 000-1 



NPXT 



OUTPUT ADDR 

SET HI ORD ZERO SW 

SET SIGN PLUS 



SET SIGN; MINUS 



FIND H I GH ORDER .FLA G 



BLANK HI ORD. ZEROS 



HI ORDER ZERO SWITCH 
FINISHED 



CHNG HI ORD ZERO SW 



MOVE DIGIT 



DORG *-3 

DORG 17602 

BRANCH TO NEXT FUNCTION SUBROUTINE 
**##****************************** 

PS 5 

TF ISFUNM1»NEXT-1»» INIT FLAG SEARCH, 
AM ISFJNf-8,1,10 



1 763? 


1 4 


1 76 7 8 


UO'J J'J 


I 7(6,44 


4 r 


1 7670 


1 2 


1 76*6 


1 


00000 


17708 


1 7Af R 


4? 


<~i00<~>0 


Ono^O 


1 7670 








1 7670 


44 


1 7620' 


99999 


1 7682 


26 


00006 


17681 


17694 


16 


00001 


000M9 


i Tint 

iff Uo 


A 


a n n A A 


n a. A A A 

u U W u u 


17708 








1 7708 


34 


00000 


001 02 


1 7720 


39 


1 7753 


00100 


1773? 


48 


00000 


00000 


17744 


49 


00670 


00000 


1 7 7 * 1 












00001 




1 77*3 




00021 




1 7707 




00004 




1 7 7 98 


26 


17881 


1 7797 


17 810 


1 6 


1 7876 


1 0919 


1 7822 


49 


17858 


00000 


1 7834 


26 


17881 


17833 


1. 7846 


1 6 


17876 


19839 


1 78*8 


1 1 


17876 


000-4 


1 7870 


1 6 


qqqqq 


qqoqq 


1 788? 


1 4 


17876 


19999 


17894 


47 


1 7858 


01200 


1 7906 


4? 


00000 


00000 


1 7908 








1 9841 




00160 




1 9920 








00441 








19001 








17911 




00004 




17 9 13 




00014 




1 7941 




00018 




17979 




0C004 




1 7981 




00008 




1 7997 




00040 





ISPTJN 



STOP 



END 



LD80 



LD160 



LOAD 



CM 

BNE 

TR 

BB 

nORG 
BNF 
TF 
TFM 
B B 

DORG 

RCTY 

WATY 

H 

B 

DORG 

DC 

DAC 



DS 
TF 
TFM 
B 

TF 

TFM 

AM 

TFM 

CM 

BNE 



ISFUIM/V8»10tl0t 

ISFuN 
,STOP 

*-q 

NFXT?,1 2>99999,T 
6. ISFUN&11*. 
1.49.10 



LAST FUNCTION 



~4 

-4- 



"""FUN C T I ON l¥cTUDED~ 

YES — ~ 



*-9 

FND ~ ~ ' 

HDEND 
*-4 
1 »@ 

21. .END OF DEMONS TR AT 1 0N(5> 

PREPARE I/O AREA SUBROUTINE 
#**************#**#*###**** 
4 

LOADf,U,*-l 
L0AD&6.BAREA-1 
LOAD-1.2 
LOAD&] 1 — 
L0AD&6 » A A RE A -2 
L0ADJV6.4.10 
99999,99999 
L0ADfr6 » 19999 
LOAD-12 



DORG *-9 



A'A R F A DAS 160,19841 ~ ~~~~ 

BAREA DS ,19920 ~" ' ' " " 

ci ds ,start-i _ " * """111! HI 

ed"numb d'S " ,i9ooi H ~'~ 

1 DC 4,02 01 21 _ " ' ' 

FUNCT DAC 14,DEM0NST'RATING(S "'_ I "HH1__ 

DAC 18 » ADDRESS JUNCTION®!" """" _ 

1" DC 4,C60] _ " "~ "" 111" 11 

I N S T R DAC 8, DEPRESS® " 

"DAT " 40 , START "T0~ ExrCUTTTJR' RETOT"F"TOCtTO~N~' 



18077 
18161 
181 99 
18291 
1 8327 
1 8425 
1 84 51 
1 8 5 M 
185^3 
1 8623 
1 8687 
1 8807 
00406 



00042 
00019 
00046 
00018 
00049 
00013 
00039 
00004 
00045 
00032 
00060 



DEMO 



HEAD 
HEADRM 



DAC 

DAC 

DAC 

DAC 

D"AC " 

DAC 

DAC 

DC 

DAC 

DAC 

DAS 

DAS 

DEND 



01 000 










DORG 


oiooo 


M9 


01 084 


102 




B 


10 13 




00036 




HD 


DAC 


01 084 


1 7 


17608 


1000 


"RPG 


BTM 


1 096 


17 


00694 


1 1 78 




BTM 


1108 


1 7 


00694 


1013 




BTM 


1 1. 2 


47 


Oil *6 


00300 




BNC3 


1132 


1 7 


00694 


10*21 




BTM 


1144 


34 


00000 


00102 




RCTY 


01156 


16 


17 9 9 


1 0727' 


INTCM 


TFM 


1 1 68 


48 


00000 


0000 


HALT 


H 


1 1 80 


1 6 


01179 


On-00 




TFM 


01 1 92 


1* 


012 6 5 


OOOOl 




TDM 


1 204 


46 


01764 


2 00 




BC2 


1 > 1 6 


37 


1.9 84 1 


00500 


RE AD CD 


RACD 


1228 


1 1 


0117 9 


000-1 




AM 


1 240 


46 


01744 


01400 




BV 


1.2*2 


46 


01676 


00600 




BI 


01 ?64 


46 


01464 


00200 


CHKZ 


BC2 


01276 


47 


01216 


00100 




BNC1 


1288 


] 7 


j 7 2 06 


1179 


PR ii,T 


BT.v 


n ] 100 


3 9 


1 9001 


On i 




WATY 




1 6 


1 4?6 


I 000 1 




TFM 


on?A 


46 


16 3 2 


00? 




BC2 


13 36 


43 


14^6 


117 7 




BD 



42 , , ..RESET , _I.NS.E R T , ,,RELEASE X _S T ART-JO EXECUTE 
19. THE NEXT FUNCTION®. 



46 , RES" A"ND "TNSER T"~4 9"0"X 007J ' "TO" EXECUTE FUNCTION 

18, A'T ADDRESS 0X000$ """ "" " - 

49 ,P'Fr0G SW3~6"N -~"TiTSTR0CTTo7T5~f SWl V ' AND""SW2 SETT I N GS 
1 3, ARE PRINTED"®" " """ 

39.PTOG sw4 - Typewriter erifTo.r " correction?. ~ " " 



l6"25~FUNCTl ONAL" DEMON STr^ION® 

..FOR® „ 



4,0302 ' 
45, 
3 2, " 

60 _ 

st art- 3 6 ;i im " . . ;~ ' .ii_ ' "u; m 

C A RD INPUT , S EC f I ON 1 ~ ~~ " " 

* * * * ** * * % # ****"*""" "_" ^ ~" ' __" 

looo" ~ _ 1 

BEG»0lC2 »C8 1 
36 .CARD READING-PROGRAM AND "DATA INPUTf 
NFXTilOOC " " 11" 

ALPHA, RCTY&2,, RET.CARR, 3 TIMES 
ALPHA, HD» » ~ " PRINT HEADING" 
INTCM _ 
ALPHA, INSTR_, PRINT CP"_ INSTR 

WATlMfVll » NOTE 



CDCNT ,0,9, "" 
CHK2&1 ,1 , , "" 1 
T I MCM 

INPUT ; 1 1. 

CDCNT , 1 ,10 
OVER 

FRROR ,600 
RD25C , , , 
READCD, » » 
EDIT .CDCNT 

EDkUMR, 

RFMARK&6. WORDS » , 

T I Mr 

'•'IDDL-,CDCNT-2» , 



IN IT .'TIME COMM. 



IIMIICAW WnJerTI 
SET 125 CDS SW OFF 



SW2 " ON . READ 125 CDS" ' 
SWl ON. STOPS' READING 



IN IT FOR COMMENT 
COUNT 100-999 



ftflT.m.Ll.il.U.k 



v 



••• 1 3 4H 
a 1 3'ftA 

1 3 84 

nn% 

1 4 Oh 

l 4?0 

01 432 

1 444 

01 4 66 

01 4*4 
01 464 
01 47ft 
01 488 
01 406 

1 4°6 

01 608 
01 520 
01 532 
01 644 
01 666 
01 664 
01 664 
01 576 
01 6 88 
1 600 
01612 

1 624 

01 632 
01 632 
01 644 
01 666 
01 668 
01 676 
01676 
01 688 
01700 
01712 
01724 
01 736 
01 744 
1. 744 



3 1 



1 4 / 6 

13 ~. 

1 01 ()a 
14 014 2 6 

46 01612 
30 1.0397 
^ q ^(.viO 

34 000O0 
34 00000 
40 0116 8 

14 ] 1 7 9 

47 012 16 
4Q 01.288 

14 01 1 70 
46 01564 
3 1 10104 
11 01426 
11 01643 
40 01384 

11 01426 

12 01575 
14 014 2 6 
46 01408 
16 01426 
49 01408 



31 10120 

11 014 2 6 

1? 01656 

4Q 01588 



17 17206 

39 10361 

16 01694 

39 19001. 

34 00000 

4Q 01264 



^ (> G 


LIT t ll 




■,i'! ( i|Vir. 




AM 


1 4 i 6 




TR 


10 121 


CHK 


CM 






BH 


00100 




WATY 




K F M A R K 


W A T Y 


00 102 




RCT Y 


00 10 2 




R C T Y 







B 

DORG 


00 J2 5 


- - - 

R D 2 ::> ^ 


CM 


01 200 




BNE 


a a a a a 




B 

DORG 


A i\i A 


ilir , l "ii c 

M I UVX-t. 


CM 


] 1 00 




D n 


10424 




T R 


0080 




AM 


000M0 




AM 


00 00 




g 

DORG 


0l 60 


BIG 


AM 


OOCMO 




5M" 


10121 


"" CHKB 


CM 


01100 




BH 


10121 


l_ M ^ 1 Vw. J 1 


T'FM 


00000 




g 

DORG 


10200 


TIME 


■ - 


02 80 




AM 


OAOMO 




ol v l 


00000 




B 

DORG 


1179 


ERROR 


BTM 


00100 




WAT? 


10321 




TFM 


001 00 






00102 




"RCTY" 


00000 




6 " 



1 7 "00694 10449 



-"-I »4.;,1 j 

- N01)Gh-3 7 ".YES-1 

k: 1 'iakk't6 Enough 

L A 5 T C 1/1 , . , ' 

CD5RD 

■?9 9'9 9,,, 



HALT 

*-3 _ 
CDCNT.12 5.9. 
READCD 
PRINT • 
--3 

CDCNT,500»9 
B I G » » . 

ENOUGH- 17 .RIGHT- 

REMARK&6.80. , 

*-l .40 ,10 

CHK 

*-3 

REMARK&6 » IT&~0 . 1 
*- 1,40,10 
REMARK&6. ENOUGH" 
REMARK-1 2 
REMARKfr6.ENlTjrjGH'" 
R'EWARk-12~ ' ' 
*-3 "' 



COUNT UNDER 100 

TG LAST COMMENT 
COMMENT 

TEST FOR 25C 



BIG I F OVER 500 CDS 
SELECT COMMENT 

SELECT COMMENT ' 



ENOUGH-1 . Fj NAL-T. . 

REMARK&6.280, , 

*-l .40.10 

CHKB 

*-3 

FDi'T.CDCNT « 
BAD... "'" 

errors 16 » Errors »» 



chan g'E Timed c omme nT' 

3EUECT COMMENT " 



CHK 2 
DORG *-3 
"OVER BTR- ALPHA , POVTR'.T ' 



I3ff5" 'CDS R" AD 



00 



01 766 
01 764 
01 764 
01 776 
01 788 
01. 8 00 
01812 
01 824 
01 832 
1 0000 
1 0001 
10037 
10041 
10081 
10161 
1.01 97 
10201 
10241 
1 0279 
10281 
10 321. 
1. 3 6 7 
10361 
1 0397 
1 0426 
10437 
10121 
10447 
1 044-J 
10619 
10621 
1 0676 
1 6 2 7 
10679 

10 7 2 5 
10 7 2 7 
10776 
1 0777 
■ 1 984] 
O 1 1 7 Q 

1 1 7ft 

1 7f,08 



49 01168 00000 

1 5 01 266 00006'' 

34 00000 001O2 

17 006 94 W 

16 01799 to: 

48 00000 OOOOT) 

49 01216 00000 



T IMCM 
WATIM 



B _ HALT 

DORG *-3 

TDM CHK2&1.6.. 

RCTY ~ 



SET .12J3 



BTM ALPHA , 9 9999. . 
TFM" WAT IM&l l >WDT I ME" 

H "" " 



Time Message 



adcd 



0001.8 


WORDS 


DAC 


00002 




DAS 


00020 




DAC 


00040 


_ ; refa 


DAC 


000 18 




DAC 


000O2 




DAS 


00020 


F I NAL 


DAC 


00019 




DAC 


00001 




DAS 


00020 


TIMED 


DAC 


00018 


ERRORS 


DAC 


00002 




DAS 


00018 


BAD 


DAC 


00014 


CDSRD 


DAC 


00006 


RIGHT 


DAC 


00004 


YES 


DAC 




ENOUGH 


DS 


00004 




DC 


00034 


POVER 


DAC 


00004 




DC 


0002 7 


INSTR 


DAC 


00026 




DAC 


00026 




DAC 


0022 




DAC 


00004 




DC 


OOO? 3 


NOTE 


DAC 


000 04 




DC 


00006 


WDT IMF 


DAC 


0'^080 


INPUT 


DAS 


n 3 


CDCNT 


DS 


00 04 


RCTY 


OC 




N^XT 


DS 



DORG _ 

DORG "10000 '__ ~ 

. 18_* L I T T LE JOB »N I C Enja 

~ 20. LET ER RUN" CHARLIE 

40_. GOOD R EADER . 

18 .B I G DATA _JOB"-- 0K@ 

2 * ~ 

DAC. . 20 . EN0UGH;:r..„LEIS ;GjP_QN(T 
19. WHAT - TIMED AGAIN® 
1 



20,30 S EC..ON THE. NOSE.* 

EjRRORS » 



. CARD® 



-S7.OP_1.3 C._CARI2S_READ_ 



18.M0RE 

2 

18. BAD STUFF_IN CARD^ 
14. CARDS READ. 8> 

6 .RIGHT® 

4 » YES® l __i" 

» RFFAf 7 40 

4,0102 

34. STOP. STOPjl 

4,0401 

2 7 , READ CARDS - SW1, SW2 » OFFv? 

.2.6 . STOP READ IM — _ SW 1 QN« .. 

26 .READ 125 CARDS SW2»_QN@ 

22.1/0 - PROGRAM OR STOP® 

4.0102 _ 

2 3. NOTE THE TIME AT START® 

4.0102 

5.TIMPO 

80.19841 

3.HALTM1 

4.0003»HALTf r 8 _ 
. 17608 " 



I 











A l J H - 




' V j. ? .' "* 




' ' ' n A 








r o I i 




, i i 7 ^ 













si- 


< 1 - A! 


, 1 9 ■ ' : l 

„- »■ „ x „- * :r ..' - « * -„- * * * vr 

CARD nUTrOi SECTION 

!V -rf n- 7*- -K- * k >i- 4? & -if 


2 


o 7 o no 










DORG 


2000 


. . . - 


7 O Ti 




7 3 6 


10 2 




R 


R F G » 1 2 ,08 




07013 




o 001 7 




HQ 


DAC 


12, CARD OUTPUT® 




7 3 6 


1 7 


1 7 6 8 


2 000 


RFG 


R T M 


NFXT » 2 u 




7048 


i 7 


6 94 


1 813 




r r i'A 


ALHHAtKCI * trd 




7 60 


1 7 


06 9 4 


20 ] 3 




3 T M 


A L Ph A » HD 




70 7 2 


4 7 


02108 


003 




RNC 3 


HALT 




7 84 


1 7 


006 9 4 


1 8 ? 9 




R T M 


ALPHA , I NSTR * » 






34 


00 


1 7 




RC T Y 






o ? l o 8 


1 6 


07777 





HAL T 


T F M 


C0Ui'nT,0,3» 


TMTTTAI I7C /"ADH ^~ Ol IM T 

INI 1 !ALl4t CAKL? L>JUN 1 


n 7 1 70 


1 7 


i 7 8 34 







B TM 


LD160»0,8, 


--"1 CAD Ol iTDl 1 T ADCA 

LLtAK JUIrUI AKtA 


o 7 1 3 7 


4 8 


nnooo 


00 00 




H 






7 164 


4 7 


71 80 


] 




B N C 1 


WOW 


■ ■ — ■-— - 


7 15 6 


4 ' 


21 80 


2 




RNC 2 


WOW 




7 1 68 


4 ° 


7 5 00 







R 


G N fjr 1 2 , , , 


bUIn owl H,r1t3 U IN 


7 T 8 


3 


- 1 ^ ^ 


004 00 


• 

wow 


WACO 


HEAD 




! ) 7 1 O / 


7 3 


i 8 7 


10823 


GO 


M 


V/ A I 1 |r 1,, ! 

vALUh,WJu» , 


f PMrDATC DAMhAU MliWDCDCL 


7 7 O 4 


3 7 


000 84 





WK 1 


SF 


84 , , 7 




' ■> 7 7 1 6 


3 7 


0009 1 


000 


WK 2 


SF 


9 1 » , 8 




7 7 7 8 


76 


1 0805 


9 A 




T F 


VALUE-2 , 96 » » 


... 

SET UP NEW MULTIPLIERS 


7 740 


3 3 


1 80 1 


00 




CF 


VA LUF-6 




7 7 5 2 


76 


10 81° 


0009 




T F 


WJO-4 » 90 




7 7 64 


1 7 


i 7206 


009 5 




RTM 


ED I T » 9 5 




7 7 7A 


3 1 


19 91 C 


1 9000 




T R 


0UTPUT f r70»EDNUMB-l 




7 7 8 8 


1 6 


1 992 3 


00 0-0 




T ~M 


OUTPUT £-63 » » 10 » 


FIRST RANDOM NUMBER 




1 7 


1 7 7 6 


9 




R T M 


F D I T , 9 




o 7 
















07374 


1 6 


1 996 ! 


00-0 




TFM 


OUTPUTS-121 » ,10, 


SECOND RANDOM NUMBER 


7336 


16 


1. 9 9 5 * 


000-3 




TFM 


OUTPUTfV113»O3»l"0» 


WITH A DECIMAL POINT 


7 348 


l 1 


7 2 2 7 


000-1 




AM 


COUNT, 1,10, 


CARD COUNT 


7360 


1 7 


1 7206 


2227 




BTM 


FD I T » COUNT 




7 3 7 ? 


31 


1 9870 


l.QOOO 




TR 


OUTPUTf, 30, E DNUMB- 1 




7 3 84 


1 6 


1 9881 


ooo-o 




TFM 


0UTPUTf,41 , »10, 




0?396 


39 


19841 


00400 




WACD 


OUTPUTM 




7408 


46 


02488 


02 00 




BC2 


GOON 





7 4 2 


47 


02192 


00100 




BNCl 


GO _ 


7432 


3 9 


1 9001 


00100 


DONE 


WAT Y 


EDNUMB * * » TYPE . OUT jCARHS . PUNCHED 


7444 


34 


00000 


00101 




SPTY 




07456 


39 


11 201 


00100 




WATY 


MESSl ".. ^ 


2468 


34 


00000 


00102 




RCTY 




07480 


49 


02096 


00000 




B 


HALT-12 ' ""' 


07483 










DORG 


*-3 


07488 


47 


02520 


00100 


GOON 


BNCl 


AOK 


?5()0 


1 7 


00694 


1 1 243 




BTM 


ALPHA »MESS2 * * BOTH SWITCHES ON 


7 5 i 7 


49 


02108 


00000 




B 


HALT " " 


07570 










DORG 


*-3 


7 5? 


1 4 


02227 


125 


AOK 


CM 


COUNT, 125, 8*. PUNCH 125 CARDS 


2 532 


47 


0219? 


01200 




BNE 


GO 


07544 


49 


02432 


00000 




B 


DONE 


10800 










DORG 


10800" " 


1 8 7 




OO0O8 




VALUE 


DC 


8,16895419 


7 7 7 7 








COUNT 


DS 


»WK2&]1 " " 


1 7?06 








EDIT 


DS 


,17206 


1 9001 








F.DNUMB 


DS 


,19001 


1 9840 








OUTPUT 


DS 


♦ 19840 ' 


10 811 




00004 




RCTY 


DC 


4,0003 


1 7834 








LD160 


DS 


,17834 


10 8 2 3 




00012 




WJO 


DC 


12 ,326331030377. 71^.7 '. ^...'.'11 


1 0827 




000^4 






DC 


4,0401 


10829 




00043 




I NSTR 


DAC 


43»PUNCH DATA CARDS CONTAINING RANDOM NUMBERS* 


10 9 15 




00024 






DAC 


24,SW1 ON TO STOP PUNCHING® 


1 0Q63 




00026 






DAC 


26,SW2 ON TO PUNCH 125 CARDS® 


HOI'S 




0001 2 






DAC 


12,1/0 TO STOP® 


110^9 




00 3 9 




HEAD 


DAC 


39, THIS SECTION GENERATE^ A. 


11117 




00042 






DAC 


42, TABLE OF RANDOM NUMBERS @ 


11201 




0001.9 




MESS1 


DAC 


19, DAT A CARDS PUNCHED^ 


11241 




00004 






DC 


4,0102 


11243 




00036 




MFSS2 


DAC 


38,1 FIND IT CONFUSING WHEN YOU HAVE BOTH 


11319 




0002° 






DAC 


29, SW1 AND SW2 ON, START AGAIN® 


1 76 08 








NFXT 


DS 


,17608 .... 


OO604 








ALPHA 


DS 


,00694 












DFND 






























TYPEWRITER I/O, SECTION 3 ' . 














**#♦•*#*****#*#**•***##*#** 


O 3O00 










DORG 


30 00 


03000 




310 6 


1 2 




R 


RFG, 01 02,08 



o 30 i :-> 
n^iOf 
n 3 i 2 o 

3 1 2 
3 1^6 

031 68 
031 an 
031 °2 
03704 

03? 1.6 

3 ? 2 8 
03240 
03? 

03264 
03272 
03272 
03284 

03?96 
3304 
03304 
13 1ft 

on?a 

3 340 
0-S35? 

3*6o 
O3360 
01372 
0^384 
3 392 
O 3 392 
3404 

03428 
03440 
3482 
03464 
0347ft 
o34RR 
O3800 
1^1? 
3 5 2 4 



00048 
17 1 7 ft n 6 
1 7 0''ift^4 
1 7 OOftofc 

16 1 I = 77 
4 00 

47 03204 

17 00604 
34 00000 

48 O0000 
27 17834 
46 03272 
46 03^60 
17 00694 
4^ 03204 



3 000 
11 60 5 

301 3 
GOO-0 
OOl 02 
00300 
11609 
001 2' 
00000 
0040") 

coico 

0200 
1 1 807 

OP0O0 



HD3 
RFG 



47 03304 00200 
17 00694 11683 
40 03204 00000 



1 R 03501 
36 19841 
47 03360 
34 00000 
4Q 3216 

4 5 33 92 
34 00000 
49 03416 



00000 
00000 
1 1 977 
1 1976 
1 1973 
11976 
00000 
11081 
00000 
19841 
1 19 76 
000 00 



0r>0o8 
GOlOO 
00400 
00102 
00000 

1°869 
00108 
"00000 

]. 2 
00102 
000-1 
00000 
00100 
00100 
00101 
00100 
00101 
00100 
00000 
00102 



DAC 
R 1 M 

rtn; 

PTM 
TFM 
RCTY 
BNC3 
BTM 
RCTY 
H 

RT 
RC1 
BC2 
RTM 
R 

DORG 
BNC2 
BTM 
B 

DORG 
TDM 
RNTY 
BNC4 
GOOFER RCTY 
B 

DORG 
BNR 
TBTY 
B 

DORG 
RCTY 
RCTY 
AM 
CF 

WAT Y 
WNTY 
SPTY 
WATY 
SPTY 
WNTY 
SF 

RCTY 



* I r.. ... 

46, VIABLE feENGTri » ALPHA OR NUMERIC TYPEWRITER I/O® 

F X T ,3000 , 

ALPHA ,RCT Yf 7 2 ~* | 
ALPHA, HD3 ■ ' * 

CTR-1 ,00, 1C \ l_ 7 

HALT 3 

ALPHA , I NSTR 



HALT3 



GO 



NUM 



TAB 



GOOUT 



OUT 



LD160,RM4 

"GO 
ALFA 

ALPHA, ERR0R1 
HALT3 
*-3 

NUM 

ALPHA, ERR0R2 
HALT 3 
*-3 

OUT&l ,6, » 
OUTPUT 
*(V32 

HALT3&12 
*-3 

GOOUT, 0UTPUT&28 

G00UTf.24 
#-3 



CTR-1, 1 ,10 

CTR-2 
A 

CTR-2" 
EQ 

OUTPUT 
CTR-2 



PREPARE TO WRITE NUMERIC 



5 



03536 


34 


00000 


0O1O2 




RCTY 


03548 


49 


03204 


00000 




B 


03560 


15 


0350] 


00009 


A L F A 


TDM 


03572 


37 


19841 


00100 




RATY 


3584 


46 


03340 


00400 




BC4 


03596 


45 


03392 


19897 




BNR 


03608 


49 


03372 


00000 




B 


1 1 600 










DORG 


1 1 603 




00004 




RCTY 


DC 


1 1 607 




00004 






DC 


1 1 609 




00028 




I NSTR 


DAC 


1 1 665 




00034 






DAC 


117 3 3 




00035 






DAC 


11805 




00004 






DC 


1 1 807 




00036 




ERROR 1 


DAC 


1 1 881 




00004 






DC 


118 8 3 




00045 




ERR0R2 


DAC 


11973 




00002 




A 


DAC 


11078 




00003 




CTR 


DC 


1 i aai 




00002 




FQ 


DAC 


00405 








RM4 


DS 


1984 1. 








OUTPUT 


DS 


1 7608 








NEXT 


DS 


06 04 








ALPHA 


DS 


1 7 R34 








LD160 


DS 












DEND 










* 












•X- 




040on 








# 


DORG 


04000 


MO 


0407ft 


102 




R 


040 1 3 




00032 




HD 


DAC 


040 7ft 


1 7 


I 7608 


4000 


RFG 


RTM 


040 R8 


1 7 


00694 


12 50 1. 




RTM 


04 1 00 




006 04 


401 3 




RTM 


4 112 


<* 7 


041 3ft 


03 




PNC 3 


Oal 24 


1 7 


O06O4 


124 0* 




RTM 


041 3 6 


48 


00000 


n r 


HALT 


H 


04 148 


27 


1 7 7 Q 8 


0040 5 




3 T 


4 6 


1C 




n 1 




WATY 


04 1 ~? 


34 


oco 00 


001 0? 




RCTY 


4 1 84 


3ft 


1 ? 


001 00 




RNTY 



HALT 3. _ ... „ 

0UT&i,9» » .... PREPARE, TO WRJJE. ALPHA-NUMERIC . 

OUTPUJ 

GOOFER ~ "' _ 

gocut,6utp"ut&56 7t ~1 """ ~_ 

T ab " _" _ 7 . """" 

11600" ; 7_ " """ Z'"Z 

4,0603 7" " " 7 " ' _ 

4,0 30"i _7"7_ " 7 "7 ' 

28»SW1 ON SW2" OFF FOR NUMERIC®.' 7 

34,SWl OFF SW2_0N FOR ALPHA_-NUMER I CO? 

35, TYPE IN UP TO. 65 DIGITS OR LETTERS)? 
4,0102 _ 7_ ' 

36, COME , COME , _ TURN ON E I THER~SW"l " OR SW2o» 
4,0102 ^ 

45, MAKE UP YOUR. MIND, TURN OFF EITHER SW1 0R„SW2@ 

2 ♦AC? 

3,00(8 

2»#@ 

,405' ' " " " "" "" 

,19841 ^ ' ' 

,17608 „ " ' ■ 7 

,00694 

,17834 " " 



* * * * **•)<■ #•)(•*• -if 

ADDITION, SECT ION 4 

-M-*-),- 

4000 " 
RFG,0l02»08 

32»ADDITION OF A COLUMN OF FIGURES® 

NFXT,4000 

ALPHA, RCTYf,2 

ALPHA, HD 

HALT 

ALPHA, INSTR 



LD80 »RM4 
NUMB 



Oil 5ft 


34 


"■c one 


0O102 




PC TY 


— 


4 2 8 


46 


4 1 48 


004 CO 




BC4 




04220 


4 * 


04? 4*0 


19 9 21 




BNR 


**20 ♦I^AR^Afrl ■ 


4 2 " 2 


4 = 


04 5 48 


C 




8 


SMALL : ' 


04240 




1 - - » 

1 .,CIQ 






DORG 


*-3 _~ I 


04 240 


1 6 


000-0 




T FM 


BAR r A«- 1 »0 , 10* 


042 52 


45 


04772 


19928 




BNR 


CLOWN » BAR EA&B . 


04264 


1 6 


04426 


1 2606 




T FM 


G0&6»C0UNT 


042 7 6 


4 5 


04420 


199'2 7 ' 




BNR 


GO »BARE A&7 


4 2 88 


1 1 


04426 


000-1 




AM 


G0k6 ,1,10 


04300 


4 K 


04420 


1 9926 




BNR 


G0»RA~PEA&6 


04? 1 2 


1 1 


04426 


000-1 




AM 


G0S6»1 * 10 


04324 


45 


04420 


19925 




BNR 


GO »BAREA&5 


04336 


1 ] 


04426 


000-1 




AM 


G0&6 , 1 ,10- 


04348 


4 C 


04420 


3 9924 




BNR 


GO » BAREA&4 


04360 


1 1 


04426 


000-1 




AM 


G0&6 » 1 »lO 


04372 


45 


04420 


1 9Q23 




BNR 


GO , BARE A&3 


04384 


1 1 


04426 


Do 0-1 




AM 


~G0f,6,l *10 


04396 


4^ 


04420 


1 Q922 




BNR 


GO » BAREA&2 


04408 


1 1 


04426 


000-1 




AM 


G06-6 » 1 »10 


04420 


3 1 


9 9~9 9 9 


19'9'1 8 


GO 


TR 


99999 ,BAREA-2 


0443? 


26 


] 2625 


12615 




TF 


CTWO»CTR 


04444 


39 


12627 


00100 




WATY 


TIME5 


044=56 


34 


00000 


00110 2 




RC'T Y 




04468 


36 


1 9940 


00100 




RNT y 


BAREAfr20 


04480 


34 


00000 


102 




RCTY 




044 = 2 


47 


4 52 4 


04"0"0 




BNC4 


*&32 


045 04 


2 6 


19 942 


U U 4 U 3 




1 r 


BAKtAfr*:^ »KM4 


04516 


49 


04444 


00000 




B 


G0&24 "'" 


04524 










DORG 




04524 


4 5 


04804 


19942 




BNR 


CUTUP »BAREA&"2'2" 


04 5 36 


4 5 


04584 


19941 




BNR 


UK »BARc.A&i! 1 


04548 


39 


127 59 


00 100 


Small 


WATY 


P I KFR 


04 5 60 


34 


OOono 


00102 




RCT Y 




04572 


49 


04136 


ooooo 




B 


HALT 


045P4 


3? 


19°40 


0000 


"OK 


S'F 


B AREAS- 20 ' 


04596 


14 


19941 


000-2 




CM 


BAREAf,21 »2»10 


04608 


47 


04548 


C130C "• 




BL 


SMALL 


04620 


21 


12615 12 6 25 


ADD ; 


"A ' 


CTR,CTW0 


04632 


47 


04680 


0100 




BNC 1 


GOON 


04644 


17 


17206 


12615 




bTm 


FDIT.CTR 


04656 


39 


19001 






WATY 


ED NUMB 




04668 
04680 
04692 
04704 
04716 
04728 
04740 
04752 
04764 
04772 
04772 
047R4 
04796 
04804 
04804 
04816 
04828 
1 2400 
1 2403 
1 2405 
1 ?463 
1 2499 
1 7608 
00694 
0040S 
1.7 7 98 
19.920 
1 7206 
1 9001 
1 2501 
1 2^7 
1 2615 
1. 260ft 
1 2625 
12627 
1 ?687 
1 2 7<S9 



34 
12 
1 4 
47 
1 7 
.34 
39 
34 
49 

39 
34 
49 

39 
34 
49 



OOOOO 
19941 
19941 
04620 
17206 
OOOOO 
19001 
OOOOO 
04136 

12^57 
OOOOO 
04136 

12687 
OOOOO' 
041 36 

00004 
00029 
0001.7 
00004 



00102 
000-1 

ooo-i 

01200 
126T5 
001152 
OOTOO" 
00102 

oboo d 

00100 
00102 
OOOOO 

ooioo 

00102 
OOOOO 



GOON 



00028 
00025 

0001 

0001 
00030 
00036 
0003^ 



CLOWN 



CUTUP 



INSTR 

RCTY 

NEXT 

ALPHA 

RM4 

LD80 

BAR PA 

FDIT 

EDNUMB 

NUMB 

ERRONE 

CTR 

COUNT 

CTWO 

TIMES 

ERR TWO 

PIKER 



RCTY 
SM 

"cm ' 

BNE 

BTM 

RCTY 

WATY 

RCTY 

B 

DORG 
WATY 
RCTY 
B 

DORG 
WATY 
RCTY 
B 

DORG 

DC 

DAC 

DAC 

DC 

OS 

DS 

DS 

DS 

DS 

DS 

DS 

DAC 

DAC 

DS 

DS 

DS 

DAC 

DAC 

DAC 

DEND 



...BARE.Af-21.1jl.( 



BAREA&2 1 » 1 * 1 
ADD 

ED IT, CTR 



ED'NTJMR' 
HALT 

*-3" _ 

ERRONE .. "~ " ~ „, "' 

HALT " ' ~ ~ "J" ~ 

*-i ~ ~~~ _r 

ERR TWO _"~ _..Z.__ 

HALT ■ _ — 

12400 " 

4 » 2 01 _ _ 

29 »SWl ON JO SHOW EACH SUBTOTAL©" 

1 7 tOVFRFLOW TO STOPP ' 

4,0003 ~ _' ~ _' 

» 17608 _ * _ . 

,00694 ' " "J ' ~ 

,00405 
,17798 
,1992 
,17206 
»1900l 



28 .ENTER " AN_EIGHT D IG I T NUMBERS 
2 5 ♦ I S A I D ONLY E I GHT D I GITSV 

io ; 

,CTR-9 _ 

io " 



30 , FNTER COLUMN SIZE, TWO DJGJ 

36 ♦ I SAID ONLY TWO DIGITS", START AGAIN* 
35, THIS JOB IS TOO SMALL, START AGAIN© 



LOGICAL DECISION, SECTION 5 

DORG 5000 ' 



00 



05000 


M9 


05054 


102 




B 


BEG5»0102»08 




05013 




00021 




HD5 


DAC 


21. DIGITS TO ALPHABETIC® 


05054 


17 


17608 


5000 


BEG5 


BTM 


NEXT.5000 




05066 


17- 


00694 


13913 




BTM 


ALPHA, RCTY&2 




05078 


17 


00694 


5013 




BTM 


ALPHA » HD5 




05090 


47 


05114 


00300 




BNC3 


HALT5 




05102 


17 


00694 


13773 




BTM 


ALPHA . INSTR 




05114 


48 


00000 


00000 


HALT5 


H 






05126 


27 


17798 


00405 


CLR 


BT 


LD80»RM4i » 


SET INPUT TO RECORD MARKS 


05138 


16 


05397 


19922 




TFM 


NUMB&ll , 19922,* 


INITIALIZATION 


05150 


16 


05468 


19922 




TFM 


NAVT&6. 19922 




05162 


16 


05485 


19922 




TFM 


NAVT&23. 19922 




05174 


15 


19920 


oooo- 




TDM 


19920»0»11 




05186 


36 


19921 


00100 




RNTY 


19921 . ♦ • 


READ TWO DIGITS 


05198 


46 


05650 


00400 




BC4 


GOOF# . . 


GOOF SWITCT 


05210 


34 


00000 


00108 




TBTY 






05222 


2L 


5238 


5K38 




M 


*&16**&16.7 ♦ 


TIME DELAY FOR TABULATING 


05234 


2L 


525 


5K50 




M 


*&16**&16.7 » 


TIME DELAY FOR TABULATING 


05246 


2L 


5262 


5K62 




M 


*&16.*&16.7 * 


TIME DELAY FOR TABULATING 


05258 


16 


13756 


13201 




TFM 


CTRO.ONE » » 


INITIALIZATION 


05270 


16 


13761 


13307 




TFM 


CTRT ♦ TEN 




05282 


16 


13766 


13503 




TFM 


CTRE*TWTY 




05294 


45 


05638 


19923 




BNR 


BAD, 19923.* 


TEST FOR NUMBER OF DIGITS 


05306 


45 


05418 


19922 




BNR 


60,19922 




05318 


45 


05350 


19921 




BNR 


GOA, 19921 




05330 


39 


13693 


00100 




WATY 


ERTWO ♦,, 


NOTHING ENTERED 


05342 


49 


05650 


00000 




B 


GOOF 




05350 










DORG 


*-3 




05350 


12 


05397 


000-1 


GOA 


SM 


NUMB&ll, 01, 10 




05362 


12 


05468 


000-1 




SM 


NAVT&6. 01,10 




05374 


12 


05485 


000-1 




SM 


NAVT&23»01»10 




05386 


43 


05462 


99999 


NUMB 


BD 


NAVT,99999», 


THIS LOOP CHECKS 1 TO 9 


05398 


39 


13315 


00100 




WATY 


ZERO 




05410 


49 


05650 


00000 




B 


GOOF 




05418 










DORG 


*-3 




05418 


14 


19922 


00-13 


GO 


CM 


19922*013,9, 


SPECIAL COMMENT WHEN NUMBER 


05430 


46 


05778 


01200 




BE 


FUN 




05442 


43 


05538 


19921 




BD 


GOC, 19921 




05454 


49 


05386 


00000 




B 


NUMB 




05462 










DORG 


*-3 




05462 


12 


99999 


000-1 


NAVT 


SM 


99999,01*10 




05474 


43 


05518 


99999 




BD 


ROUT*99999 




05486 


26 


05504 


13756 




TF 


*&18*CTRO 





05498 


39 


09999 


00100 




WATY 


9999 




05510 


49 


05650 


00000 




B 


GOOF 




05518 










DORG 


*-3 




05518 


11 


13756 


000J2 


ROUT 


AM 


CTRO*12.10 




05530 


49 


05462 


00000 




B 


NAVT 




05538 










DORG 


*-3 




05538 


12 


19921 


000-1 


GOC 


SM 


19921*1.10 




05550 


43 


05670 


19921 




BD 


GOD. 19921*. 


10 TO 19 RANGE 


05562 


43 


05606 


19922 


UP 


BD 


GOE .19922 . » 


20 OR GREATER 


05574 


26 


05592 


13761 




TF 


*&18»CTRT 




05586 


39 


99999 


00100 




WATY 


99999 




05598 


49 


05650 


00000 




B 


GOOF 




05606 










DORG 


*-3 




05606 


12 


19922 


000-1 


GOE 


SM 


19922*1*10* 


THIS LOOP CHECKS 10 TO 19 


05618 


11 


13761 


000K0 




AM 


CTRT*20*10 




05630 


49 


05562 


00000 




B 


UP 




05638 










DORG 


*-3 




05638 


39 


13627 


00100 


BAD 


WATY 


ERONE 




05650 


17 


00694 


13213 


GOOF 


BTM 


ALPHA»OLMO&2»* 


RCTY TWO TIMES 


05662 


49 


05126 


00000 




B 


CLR 




05670 










DORG 


*-3 




05670 


12 


19921 


000-1 


GOD 


SM 


19921*1.10* 


THIS LOOP CHECKS 20 TO 90 


05682 


43 


05738 


19921 




BD 


GOF.19921 




05694 


26 


05712 


13766 




TF 


*&18«CTRE 




05706 


39 


99999 


00100 




WATY 


99999 




05718 


43 


05758 


19922 




BD 


GOG.19922 




05730 


49 


05650 


00000 




B 


GOOF 




05738 










DORG 


*-3 




05738 


11 


13766 


000J6 


GOF 


AM 


CTRE,16,10 




05750 


49 


05670 


00000 




B 


GOD 




05758 










DORG 


*-3 




05758 


34 


00000 


00101 


GOG 


SPTY 


, , * 


SPACE THE TYPEWRITER AND THEN 


05770 


49 


05462 


00000 




B 


NAVT*,, 


GO TO THE 1 TO 9 LOOP 


05778 










DORG 


*-3 




05778 


39 


13913 


00100 


FUN 


WATY 


HAHA 




05790 


49 


05650 


00000 




B 


GOOF 




13200 










DORG 


13200 




13201 




00004 




ONE 


DAC 


4, ONE® 




13211 




00004 




OLMO 


DC 


4,0002 




13213 




00004 






DAC 


4, TWO© 




13223 




00004 






DS 


4, 





1 


* 


o AC 


ft , jMDcrrfS 






1 


0000* 


rv-.C 


- ,Fn(jP* 




i 


\~?U> 


pnnn? 


OS 


? , 


- 




1 7 7 AO 


oooo* 


DAT 




- 


* 


1 


0? 


I^S 


? , 


- 




1 7 ?ftl 


O0004 


OAC 


4 , S T 


•-r ■ 


— 


1 1 7 7 1 


00004 


ns 


4 , 






1 7777 


0000* 


n a r 


6 » SFV C N* 






1 7 7RK 


oooo* 


OAT 


* , cir.MT* 






1 1?Q7 


oooo* 


OAC 


* , M INC® 








00004 


T e N DAT 


4 , TPM* 






1 7 7 1 5 


0000* 


ZFPO OAC 


5,ZFR0* 






1 ^77S 


0000? 


ns 


? , 






17^77 


OOOOR 


OAT 


R »FLEV e N"* 




- 


1 774^ 


00004 


OS 


6 » 


. - 




1*767 


00007 


n A C 


? » twelve* 








oooo* 


DS 


6 , 






1 -J7*7 


ooooo 


D AC 


, THIRTEEN* 






1 77RR 


0000? 


OS 


? , 






1 ■a 7R7 


OOOOP 


DAC 


0,FOUPTFFN* 






1 760^ 


0000? 


OS 


? , 







] 74i"l7 


OOOOR 


OAC 


8»FIFTFFNf» 






1 7475 


00004 


OS 


4 » 






1 7 4 ? 7 


OOOOR 


oat 


R»STXTPFN«> 






1 7445 


00004 


OS 


4 , 







1 7447 


0001 


OAC 


10 »SEVENTEEN* 


... .... 





176*7 


OOOOO 


OAC 


g,F IGhTE'FN* 







1 74PR 


0000? 


OS 


2 , 


— 


— 


1 74«7 


OOOOR 


OAC 


fl»NINTFEM* 






1 7507 


00007 


TWTY OAC 


7 , TWFMTY'O 






1 7 i; i 7 


oooo? 


OS 


? , 




. _ 


1 ^ 1 Q 


00007 


OAC 


7 » T H ! R T V * 


' 




17^77 


OOOO? 


OS 


2, ' 




■ 


1 7 57^ 


O^oo* 


DAC 


6, FORTY* 






1 7540 


00004 


OS 


4, 






7 7 <^ ] 


oooo* 


OAC 


6, FIFTY* 






175*^ 


00004 


OS 


4 » 






1 7^ft7 


OOOO* 


OAC 


6, SIXTY* - 






1 7581 


00004 


OS 


6, 






17SA7 


OOOOR 


OAC 


8,SEVFNTY* 






1 7 5 0° 


00007 


DAC 


7,fi^mT7» 






17*17 


OOOO? 


DS 


?, 







1**7* 


OOOO* 




OAC 


*,N!NTY® 


1 7*?7 


00077 


ERONE 


DAC 


77, ENTER ONLY TWO CHARACTERS PLEASE* 


1 7ftQ7 


00070 


ERTWO 


DAC 


70, GO AHEAD AND ENTER TWO DIGITS* 


177** 


0000 s ) 


CTRO 


OS 


5 


1 77*7 


00005 


CTRT 


OS 


5 " 


17 7** 


00005 


CTRF 


DS 


"5 


00*04 




ALPHA 


DS 


,00*94 ' 


1 77QR 




LORO 


OS 


, 7.770* 


1 77*7 


00001 




.OS ' 


1 , 


1 7771 


O0004 




DC 


4 ,0701 


1 7777 


000?? 


INSTR 


DAC 


22, SWT, SW2 — ON OR OFF* 


1 7R1 7 


0001 7 




DAC 


17, OVERFLOW TO STOP* " 


1 7R*1 


000?0 




D.AC 


?q ,type in any Two digit number* 


0040* 




RM4 


OS 


,00405 


1 7Q1 1 


00004 


RCTY 


DC 


4,0007' ~ "~ 


17*08 




NFXT 


OS 


,1 7*08 


17017 


00074 


HAHA 


DAC 


74,1 -DO NOT LIKE THE NUMBER THIRTEEN* 








OFMD 





RAPID SUCCESSIVE ADD I T I ON » SECT I ON 6 



o*ooo 










DORG 


*ooo 




Oftoon 


MO 


0*0*4 


1 o? 




R 


RFG*,6l02»OR 




0*017 




ooo?* 




HD* 


DAC 


?*, RAPID" SUCCESSIVE 


ADDITION* 


0*0*4 


1 7 


1 7*08 


*000 


RFC,* 


RTM 


NFXT ,6000 




OftO 7ft 


1 7 


00*04 


6081 




RTM 


ALPHA , RCTYf.? 




OftORR 


1 7 


00*04 


ftO 1 7 




RTM 


ALPHA, HD6 




Oft! 00 


47 


0*1 24 


0070O 




PNC3 


HALT* 




0*11? 


1 7 


00*04 


*R *7 




RTM 


ALPHA, INSTR 




0* 1 ?4 


74 


OOOOO 


O07O? 


HALT* 


RCTY 






0*17* 


47 


0*1 R4 


on?oo 




RNC? 


GOON , , , 


TEST FOR THE PRESENT SW2 SETTING 


Oft 1 6R 


1 * 


Oft?*7 


00007 




TDM 


ADD- 11. ,7, , 


AND THEN INITIALIZE THE LATTER TESTS 


ft 1 fto 


1 <- 


Oft?R1 


onooft 




TDM 


AO Of. 7 7,*, , 


SO THAT CHANGING SW2 WILL BE 


OM 7? 


An 


Oft?Op 


0000" 




R 


CLP, , , 


FNOUGH TO TEST FOR CHEATING AND 


oft l P4 


1 * 


Oft?^7 


OOOOft 


GOON 


TOW 


AOO-1 1 ,*, , 


STOP THE ADDITION 


0*1 Q* 


1 R 


o*?R1 


00007 




TDM 


AOOr. 17 ,7 




* ? R 


1 ft 


0*7*4 


000 


CLR 


TFM 


SUM, 0,8 




O ft ? 7 


1 ft 


Oft?*1 


o_oo 




T p M 


SUM-7 ,0,0 




nt, ? -x? 


7* 


Oft?KR 


06 on 




TO 


m iMf. 1 ,400 




Oft 7 64 


40 


000 


f 1 n 


M 


H 


, , 5 




Oft ? Sft 


4A 


n ft 7 ft 4 


007^0 




BC? 


PPPO, , , 


CHEAT MESSAGE 


Oft?ftft 


1 1 


Oft? *6 


00-1 


AOD 


AM 


SUM ,1,10, 


ADD ONE TO THE COUNTER AN THEN 



Oft 780 


a ; 




■ ; is ■? n o 




°nc? 


a on , , , 


T^ST SW2 POR STOP 


f 


i a ? n ? 


7 7 




nn^fl 




CP 


5(,IM_ft 


* 


■■ , A T ri U 


■a 


n A ? (i Q 


1 




WNTY 


5,1, W-K, 




i 


n A •a 1 f, 




o o - n o 


01 1 




SP T Y 






i 


n A 3 ? 8 


7 A 


(;00 (J 


00 1 01 




SPTY 








n ft 3 6 n 


4 * 


OAft76" 


Oft?ftO 




RD 


RICSUM-4,, 


TEST FOR NUMBER OF DIGITS 


nft 3 ft? 


41 


n ft ft s 7 


0ft?ft? 




BD 


MID,SUM-? , , 


then select a comment 




ft 3ft6 


6 7 


Oft4ft4 


0ft?*3 




BD 


SMALL » SUM- 1 






P ft 3 7ft 


30 


1600 1 


001 00 


H^RF 


WATY 


coma , , ? 






ft 3 R R 


34 




ooio? 




RC T Y 








Oft400 


1 1 


n ft 3 R ? 


0044 




AM 




CHANGE COMMENT 




0ft41 ? 


1 4 


0ft3R? 


1413 3 




CM 


HEREkft , C0MAfV132 






0ft474 


4ft 


0ft444 


1 700 




BE 


OUT,,, 


REINITIALIZE COMMENT 




rifti 7ft 


40 


Oft ] ?4 


ooooo 




B 


HALT6 






ft A 4 4 










DORg 


*-? 






ft 4 4 4 


1 7 


Oft3R? 


00 J3? 


OUT 


SM 


HFRF£.ft,13 2,R 






064ftft 


4Q 


Oft 1 ?4 


OOOOO 




R 


HALT6 






6 4ft4 










DORG 


*_3 






0ft4ft4 


7 Q 


1 4 1 7 ft 


001 00 


SMALL 


WATY 


COMR , , ? 






0ft6 7ft 


36 


OOOOO 


OOl 07 




RC T Y 








0ft6 RR 


1 1 


Oft470 


OOOM? 




AM 


SMALLf-6,42,10, 


CHANGE COMMENT 




OftftOO 


1 4 


0ft470 


1 4?Q3 




CM 


SMALL'-ft »C0MB£168 






Oftftl ? 


4ft 


0ftft3? 


01 ?00 




BE 


OUT?,,, 


REINITIALIZE COMMENT 




6 ft 24 


40 


ft 1 ? 4 


OOOOO 




B 


HALT6 




06ft3? 










DORG 


*-3 







n ft ft 3 ? 


1 ? 


Oft4 70 


00 J6P 


OUT? 


SM 


SMALLf-6 , 168,9 






ft 5 4. 4 


40 


ft 1 ? 4 


OOOOO 




B 


HALT6 






ft ft ft ? 










DORG 


*-3 






oftftft? 


7 K 


0ftft7^ 


06?ftl 


MfD 


TD 


CMfrll,SUM-3 






Oftftft6 


1 4 


OftftOft 


000-0 


CM 


CM 


RCfx6 ,0 ,10 






Oftft7ft 


4ft 


0ftft7ft 


on oo 




RH 


BIG 






n ft ftRR 


7 


1 4?RO 


001 00 




WATY 


COM<-, ,2 






OftftOO 


7 A 


OOO 6 


0010? 


RC 


RCTY 


4, ,ft 






ft t p 










AM 


RC-6»64,l0, 


CHANGE COMMENT 




Oftft?6 


1 4 


Oftft04 


1 44R1 




CM 


RC-6 ,C0MC&19"2 






0ftft3ft 


4ft 


Oftftftft 


01 ?00 




BE ■ 


0UT3, ,, 


REINIT I ALTZ^ COMMENT " 




riftft4R 


49 


Oft] ?6 


OOOOO 




B 


HALT6 






nftftsft 










DORG 


*-3 






nftft^ft 


1 7 


OftftQ6 


00 JQ? 


0UT3 


SM 


Rr-ft ♦ i p? ,q ~ 






HftftftR 


4 


061 24 


OOOOO 




B 


HALT 6 






Oftft7ft 










DORG 


*-3 






0ftft7ft 


70 


1 44R3 


00100 


BIG 


WffTY 


COMD, ,? 







OftftRR 


34 


OOOOO 


0010? 




RCTY 








0ft700 


1 1 


OftftR? 


OOOM? 




AM 


BIGf,6,42,10,_ . CHANGE 


COMMENT - _ 




Oft 7 1 ? 


1 4 


OftftR? 


] 4ftftl 




CM 


BIGf,6,C0MDM~68 






Oft7?4 


4ft 


Oft744 


01700 




BE 


0UT4»,» REINITIALIZE COMMENT 




Oft73ft 


40 


Oftl ?4 


OOOOO 




B 


HALT6 






0ft744 










DORG 


*-3 






Oft 744 


1 7 


OftftR? 


OOJftR 


0UT4 


SM 


RIG*V6',168»9" 






Oft 7 ftft 


40 


Oftl ?4 


OOOOO 




R 


HALT6 ~ 






0ft7ft4 










DORG 


*-3 






0ft7ft4 


7Q 


1 4ft43 


ooioo 


FRRO 


WATY 


CMT,,'2 — ~ 






0ft77ft 


34 


OOOOO 


001 02 




RCTY 








nft7RR 


1 1 


Oft7 70 


OOOKfe 




AM 


*-18,26,10, CHANGE 


COMMENT 




OftROO 


1 6 


0ft770 


1 4700 




CM 


*-30 ,FNDfV26 






OftR 1 7 


67 


Oftl ?4 


01 700 




BNE 


HALT6 






0ftR?4 


1 ft 


0ft770 


1 4643 




TFM 


ERRO&ft , CMT REINITIALIZE COMMENT 




OftR3ft 


6Q 


Oftl ?4 


OOOOO 




B 


HALT6 






OftRft] 




00004 






DC 


4,0201 






OftR*3 




no04 ft 




INSTR 


DAC 


4S,PUSH START THEN CHANGE 


SW 2 "To" stop "add I T I ON® 


ft 04 7 




000 1 7 






DAC 


17, OVERFLOW TO STOPo 






nftQ7Q 




00004 




RCTY 


DC 


6 ,0003 






1 7ftOR 








NFXT 


DS 


,17608 






00ft 04 








ALPHA 


DS 


,00696 






1 4000 










DORG 


14000 






1 6 no i 




000 ? 7 




COMA 


DAC 


22, THAT WAS FAST ON SW 2<® 






1 404ft 




OOO?? 






DAC 


22, YOU ARF NOW AN EXPERTS 






14n«Q 




000 1 R 






DAC 


18,G0nn SHOW OVd BOY^i 






16 12ft 




00021 




COMB 


DAC 


21, YOU CAN IMPROVE THIS* 






1 4 1 ft7 




000 7 1 






DAC 


21 , TRY IT ONE MORE TIME® 






1 6?no 




00071 






DAC 


21 , FASTER ON THE SWITCH® 






1 47ft] 




0001 o 






DAC 


1 P,TWO DIGITS TS FAST® 






1 4 7 RO 




0Q03? 




COMC 


DAC 


32 ,FASTFR ON SWITCH2 TO REDUCE SUM® 




1 63ft3 




0003 ? 






DAC 


32,THC 1620 IS FASTFR THAN 


YOU ARE® 




1 661 7 




00033 






DAC 


33,1 KNOW YOU CAN DO BETTER CHARLIE® 




1 66R3 




000? 1 




COMn 


DAC 


21 , FASTFR FASTER FASTER® 






1 6ft7ft 




000 7 1 






DAC 


71 * YOU ARE TOO SLOW ® 






1 6 ft<-7 




000?n 






DAC 


20,SPFFD IT UP CHARLIE® 






1 6ft07 




000O1 






DAC 


1 , A 






1 4 ftOQ 




000 1 7 






DAC 


17, GET THE LFAD OUT® 






Oft 7 ft4 








SUM 


OS 


, Hf„ 1 






1 6ft 4 3 




000 7ft 




GMT 


n Ac 


2ft, YOU MOVFD SW? TOO SOON® 




1 6ftOft 




000 1 






DAC 


10, PLAY FAIR® 






1 4 7 1 Q 




onooft 






DS 


ft 







1 47pl 




n o o i i 






DAC 






ri no 04, 






ns 


1 4 7 A 7 




000 13" 






DAC 






00 1 t 




END* 


DAC 










L 

* 


DEND 










•x- 


DORG 




MO 


07064 


102 




fi 


7013 




00076 




HD7 


DAC 


n 70 64 


1 7 


1 7608 


7000 


RFG7 


bTm 


70 7 6 


1 7 


00694 


] 5549 




btm 


70 88 


1 7 


6 9 4 


7013 




BTM 


71 00 


4 7 


071?4 


O030O 




BNC3 


0711? 


1 7 


00694 


1 50 21. 




BTM 


7174 


48 


0000 


00000 


HALT7 


H 


71^6 


1 7 


00694 


15171 


ENTER 1 


BTM 


714 8 


27 


1 7834 


00405 




BT 


7160 


36 


1.984 7 


00100 




RNTY 


7172 


1 7 


00694 


1 5549 




BTM 


7 1 84 


46 


07136 


00400 




BC4 


7 1 96 


4 * 


07? ? 8 


198 4 7 




BNR 


7 7 8 


1 7 


00694 


1 5 15 9 




BTM 


7 7 70 


4° 


07136 


00000 




B 


7 ? ? 8 










DORR 


7 ? ? 8 


4 5 


14978 


198 54 


LOOP 1 


BNR 


7?40 


43 


0727? 


1 9847 




BD 


7 ? =>? 


1 7 


0Q694 


15181 




BTM 


7 764 


40 


7136 


00000 




R 


7 7 7 2 










DORG 


7 7 7 7 


J 7 


00694 


15141 


ENTER 2 


BTM 


7 7 84 


2 7 


17 79 8 


0040 5 




RT 


7?Q6 


3 6 




1 




rnty 


07308 


1 7 


00694 


1 5549 




rTM 


07320 


46 


07?7? 


00400 




RC4 


0733? 


4S 


7 364 


19970 




BNR 


07344 


1 7 


00694 


1 51 59 




BTM 


7 3**. 


40 


0727? 


00000 




B 


07364 










DORG 


07364 


4=, 


07944 


1 9922 


LOOP 2 


BNR 


07376 


4C 


074] ? 


1 99 2 i. 




BNR" 



i 1 , watch Th.aTo 
4 , 

13,DIRT"Y PLAYfeRiB 
] 1 ,nOMT CHEATS 



SUCCESS IVE MULT IPLICAT ION, SECTION 7 

7000 

BFG7,oi02»08 

26, SUCCESSIVE MULT I PLICATION*" 
N^XTWOOO ~ ' " " 
ALPHA, RCTY&2 
ALPHA, HD7 7 "2 

HALT 7 ~ ~" "■ """"" 

ALPHA,INSTR "' 
, ,2 

ALPHA, VAR 1 
LD160 , RM4 
NR-7 

ALPHA, RCTY&2 
ENTFRj 
L00P1 ,NR-7 
ALPHA, ERMESi » , 
c N T E R 1 
*-3 

ERROR!', NR,"', 
ENT^R? , NR-7 

alpha, frmes2 
enTfri 

*-3 

ALPHA ,VAR2 
LD80»RM4" 
PR-1 

ALPHA ,RCTYfr2 
ENTFR2 "' 
LOOP 2, PR-1 
ALPHA, ERMESI,, 

ENTER"? 
*-3 

FRR0R2,PRfi-l,V 
COMPYPR 



reqwsi 



CHEcirFOR TOO LUNG - TTNUMBf R 



REQUEST AN ''ENTRY 



CHECK FOR TOO GREAT A POWER 



7 388 


?s 


19921 


19920 




TD 


07400 


1 => 


1 9920 


0000- 




TDM 


0741 ? 


3? 


1 9847 


00000 


COMP 


SF 


07474 


3? 


19970 


00000 




SE 


07436 


1 4 


19971 


000-1 




CM 


07448 


46 


14-9 60 


01200 




BE 


07460 


14 


19921 


000-0 




CM 


07472 


46 


07976 


1 2 00 




BE 


07484 


1 6 


1 5581 


oob-o 




TFM 


07496 


16 


071 36 


000-0 




TFM 


07S08 


?6 


1 66 c >9 


7132 




TF 


07570 


46 


07540 


19847 


SEARCH 


BNR 


07532 


49 


0757? 


00000 




B 


07540 










DORG 


07540 


1 1 


07136 


000-1 


LOOP 3 


AM 


07^? 


1 1 


07631 


000-1 




AM 


07^64 


40 


07570 


00000 




B 


07572 










DORG 


0757? 


1 6 


07531 


19847 


SFT 8 


TFM 


07584 


16 


15584 


00-00 




TFM 


7 596 


?1 


1 *5R4 


07135 




A 


07608 


45 


07688 


1 9848 


ZOOM 


RNR 


07670 


?6 


07638 


0761 9 




TF 


07632 


1 5 


99999 


00000 


GOG 


TDM 


07644 


14 


07638 


19854 




CM 


076*6 


46 


07708 


01200 




BE 


07668 


1 1 


07638 


000-1 




AM 


07680 


40 


0763? 


00000 




B 


07688 










DORG 


07688 


1 1 


0761.9 


000-1 


FIND 


AM 


07700 


40 


07608 


00000 




B 


7 708 










DORG 


7 7 8 


?6 


1 5559 


] 9853 


RFGEN1 


TF 


O77?0 


1 6 


0761« 


19848 




TFM 


V" -1 =>2 


1 1 


1 5 5 8 i 


000-2 




AM 


1 7 44 


26 


1 5 -, ~ P. 


37 j 33 




TF 


<) 7 ■? ^6 


2r> 


1 5 7 1 


713 2 




TF 


7 '66 


? ! 


] 5 7 1 


i r > r. -V 




A 


'> / /80 


1 " 


:": 7>, 


C'POOO 




TDM 


7 : ■■)? 


/ '•* 


i r - ~ 8 


1 " » - ■ 




V 



19921, 19920, 
19920, 0,11,_ 
NR-7 _ 
PR-1 ""~ 
PR, 01 ,10, ~~ 
SELF" ~ 
PR »0»l'G 
MESONE 



.. CONVERSION OE A SINGLE DJjGLT ..P01KER X 
TQ . _A. pI.G.li_PQ«£B_JiX__ , 



TEST FOR-FlRSf POWER" 



cTR»oo'»'io"r_ 

LENGTH, 0,10 
c LNR ,ZFR0ES-1 
LOOP 3, NR-7, 7, 

SET8 _" 
*-3 



ZERO PROD." CTR, 



FIND LENGTH. OF NUMBER, F IELD" 



LFNGTH,1,10_ 
SFARCHf.l 1*1*10 
SEARCH 
*_ 3 

SEARCHfrl 1 »NR— 7 

EXP0N,0,9 

EXPON , LENGTH 

FIND,NR-6,7~ 

*M8,Z00Mf,li 

99999,0 ,2 

G0Gfr6,NR 

REGEN1 "_ 
G0Gfr6, 1 ,10" 
GOG _~ 
*-3 "" 
ZOOMS! 1 ,1»I0""J 
ZOOM 
*-3 



FLNR»NR-1 »7 
ZOOM&l 1 ,NR-6 
CTR, 2, 10 
PROD, ZEROES, , 
PROD-7 »ZER0ES-1 
PRCD-7 ,F LNR' 
7 9,0 



CLEAR PRODUCT AREA 



.__<_> 



7 8 28 4^ 7 900 15 565 

7 840 ]/ 15 -.8^ u00-l 

07852 26 l^oJO 15578 

078*4 ?6 : 557? ±9900 

0787., i~ iS r ;7B 00000 

07886 ^7 155*65 00000 

07900 24 19921 15581 

07912 46 14800 01200 

07924 H 15 581 XCG-l 

07936 49 07780 00000 
07944 

7 944 17 00694 1542 i 
07956 25 15491 15490 
07968 49 0727? 00000 

07976 

07976 1 7 00694 155T3 

079R8 4° 07136 000O0 

14800 . 

14800 17 00694 15237 

14812 ?7 17798 "00405 

1 4B74 31 1 9 940 r5"5~_'5"~" 

14836 33 19940 OOOOO 

14848 38 19940 "OOTOTT 

14860 17 00694 T57FT 

14872 31 19970' T55B7 

14884 33 19970 00000 

14B96 38 19970 "CrOIW" 

14908 17 00694 15 5?f9~'" 

14920 49- 07136 00000" 

149 28 

14928 17 00694 153 17 

14940 25 15363 "I5362 

1 49 5? 49 071 36'1T0"1jO"O"' 
14960 

14960 33 19847 00000 

149 72 17 00694 T55T5 

14984 38 1984? OOT0"0~" 

149 96 17 00694 1 5549 

" 1 5008 49' 071 36 00000" 
150 1 6 

15019 0D004 " — 
151121 — DTTOTC 



CitiGO 



s:-i 

TF 
TF 
TDM 
SF 
C 
BE 
AM 

B 

DOR 6 

Error 2' b~Tm' 

TD 
B 

5 ORG 

"ME50NE 'BTM 
B 

" 3CR'6 
PRINT BTM 
BT 

- TR 
TF 

~ WNTY 

~ "BTM 

' TR 

- CF 
~ " WNT Y 

BTM 
" S 

TT3~ 



1 X P 1 « » i » 1 C » 
XPSCDX »?ROD"" 
PKOO-1 »XPRODX 



PROO-13 
PR»CT~R 
PR I N r 
CTR,1,TC'~ 
WOW 
3 



IS THERE . A HIGH ..QR.DFR ZERO 

IF YES, THEN DEC REMENT THE EX PONEM 



THE!! ADD A LOW ORDER ZERO 



ALPHA, MES52~ _~ 

M0NT~j-2 ,M0NTG-3 , , 

ENTER 2 ._ 

*_ 3 

ALPHA,ME"S5'3 """" 

ENTER 1 ~ 

"1 480-0 

ALPHA, AN"5" "'""" 

XD'80,RM4 " 

"199to;prod-13 

199413 

mm 

ALPHA, A.^SETXT ~ 

19970 — 
T9TT0 : 



Chang r COMM £ n f "sEcSn d tTRF 



ALPT-TA , RCTYg?" 
TNTTKl 



"*-3" 

A"I_PTfA~» "M7/FS7. ~~~~ 
T3U^T~CBO-3 . » CHANGE COMMENT SECOND TIME. 



DORG 



"enTeri" 



SELF 



CF 

1TF 



NR-7 

"ALPHATmTsTT 



WNT Y~~NR-7 

BTM ALPHA » RCTf 62 



TJORG 
TJC" 



ENTERI 



*-3 

4,0201 



1NS T R DAC 20. TYPE UP TO 7 M(5IT5® 



->*_ 



15061 
15113" 

'15119 
15121 

-T5'1 39 
1 SI 41 
15157 

15159 
1 5 1 79 
15181 
15235 
15237 
152 =19 
15261 " 
1531 5 
15317 

"1*365 
15419 
15421 
15493 
15511 
1551 3 

1 55 2 3 
1 5525 
15547 

"15549 
15551 
1 98 54 
19921 

713 3 

1 5559 

713 5 

1 5564 
15578 
1 5579 
17608 
00694 
1 7798 
00405 
1 78^4 
1 5581 



00026. 
00002" 
00004" 
000 08" 
"00004" 
DO 007" 
00004_ 
""00 00'9 
""00004"" 
"""00026" 
' D O'OW 
0003 
DO 004" 
DC026" 
"00004 
""00024" 
"'"0002 6" 
00004 
00036 
00008" 
00004 
" 00004_ 
00004 
00010 
00004 
" 000 02 
00002 



-DAC 26 .THEN TYP E 'A ? DTGTT PffMPRffl 



DAC 2, (» 



"DT~" 4»0100 



"VAR"I "TJAC 8»NUMBER # 



DC 4,0100 



V A R 2 



DAC 7,P0WFR * 





DC 


4,0102 < 




ERMESl 


DAC 


9, GO AHEAD® 






DC 


4»0102 1 . 




ERMES2 


DAC 


26»N0 HlCfH ORDER ZERO PL|aSE» 






DC 


4»0100 





00008 

00005" 

00014 

00001' 



00002 



MS" 



DAC 



DC 



4_»0100 

A NS EXP DAC 26, TIMgS TEN TO THE POWER ». 



DC 



MESS1 DAC 



OLMO DAC 

DC 

Mj"SS2 DAC 
"MONTG" DAC" 

" DC 
"MESS3_lpAC" 
DC " 

MESS4 _ DAC 
RCTY 1 DC. 

OS 

L2 DC 
MR _DS 
PR ' ' DS " 
ZEROES DS 
FLNR DS 
LENGTH DS 
DS 



4,0 102 

24, "E NTE R" ONLY SEVEN DIGltSit" 



26, HOW 'OFTEN MUST I TELL YOU® 



4,0 102 

36 , THE POWER MAY NOT EXCEED TWO DIGITS* 



8»CHARLIE@_ 
"4,"0102_ 
4 » ONE® 



p ROD. 

NFXT 
ALPHA 

L080 ' 
RM4 
L0160 
CTR 



DC 

DSC 

DS 

DS 

DS 

DS 

DS 

DC 



4,0100 

1 ,AN5W ER H ,® 

_4,0b03__ 

_2 ■ ________ 

■2_»0 

,1985 4 

»i'992l 

,HALT7>, 9 

8» ______ 

, HAL T7&1_1 

5 

14,0 

1 ,<?> ______ 

,17608 " 

,00694 \ '. 

,17798 ~_ 
,405 

, 17834 "_"_' 
2,0 



i 9 a or. 




OOO 3 4 




XPROD> 


i";C 


1 ^6 84 




0003 




FX PON 


DC 


l 6 6 r * 




OOuOl 






DSC 








- 


- 


DEND 


08000 








* 


DORG 


oaooo 


M9 


08058 


103 




B 


08013 




00023 




HD8 


DAC 


ogose 


17 


17608 


8000 


B F G 8 


BTM 


08070 


17 


00694 


8347 




btm 


08082 


17 


00694 


801 3 




BTM 


O8O94 


47 


081 42 


00300 




8NC3 


081 06 


17 


00694 


1 ^865 




BTM 


08118 


17 


1 7834 


000 




bTm 


08H0 


46 


081 42 


00900' 




BLC 


081 42 


48 


00000 


00000 


HALT8 


H 


081 64 


17 


1 7834 


000 




RTM 


081 66 


26 


08998 


1630? 




tf 


081 78 


26 


08148 


16302 




tf 


081.90 


26 


08153 


16299 




TF 


08202 


31 


19840 


16238 




TR 


08214 


1 6 


1 9853 


000-0 




TFM 


08226 


3 1 


19854 


162^2 




TR 


0R?38 


1 6 


19665 


000-0" 




TFM 


08260 


3 1 


1 9866 


16264 




TR 


08262 


16 


19685 


000-0 




TFM 


0R274 


31 


1 99 50 


16284 




TR 


0R?R6 


1 6 


1 9963 


000-0 




TFM 


0R?9R 


39 


1 9841. 


00400 




WACD 


083 1 


36 


19840 


00 500' 


READ 


RNCD 


8 3 22 


32 


19840 


00000 


ONE 


SF 


083*4 


32 


1 9 843 


00000 


TWO . 


SF 


08346 


26 


08 3 31 


19841 




TF 


083^8 


26 


08333 


19844 




TF " 


OR370 


1 1 


08148 


000-1 


COKIT 


AM 


08182 


76 


1 63 62 


163 '27 




TF 


083^4 


26 


16392 


1 6327 




TF 


08406 


21 


16362 


08333 




A " 


0841 8 


1 1 


'0 8153 


000-1 




AM ' 



14 

3 »c; 
l »<» 



» 1 9 



9CC 



* * * #'#'!* <- * * » a * mt a #'# * ** 
COMBINATION CF "EFFECTS. SECTl6T< 8 

******* »*******#*".§## 

8000 " ' ' ; 

BEG8»0103»'08 " ~ ' 

2 3 .COM3 I NAT I ON OF EFFECTS* ' " 

NEXT ,8000 " ~ 

ALPHA » RCT Y&2 .» ftEtURN CARR. 3 

HALT8 * ' • • MJM. HEADJNG; .: 

ALPHA, INSTR, , 
LD160, ,6, ~_ZZ CLEAR 

HALT 8 " 



TiMES 



' "PRINT OP. INSt"R9"""" 

output- area ,, :_z:zz 



LD160..8 
MULTCT » Z E'R'OFS- 



25 



CDCNT.ZER0ES-50YY 
CNTl .2ER0ES-33 
AAREA »NBR-1 , , 
AAREAS13 , ,10 
AAREAfV 14 ,PR-T 
AARFAf,25,,10 
AAREA&26 .TRUNK"-! 
AAREAf>45 » ,10 
AAREA/Vl lO ,ANS~1 
AAREAfrl2'3, .10" 
AAREAS1 
AAREA, , » 
AAREA 
AARE Afi-3 

POWER. "AAREA&l" 

"NUMBER '.'AAREA&4 

CDCNT,1 ,10 

SUM,2'FRC)ES-5 

INTFR.ZEROES-5 

SUM, NUMBER "~ """'" 
'CNTliT.10 " 



IN ITIa lI^e "H'ultiPl i catTon" and 

tARD COUNT COUNTERS 



J 



PUNCH HEADING CARD 



READ' IN DAT A CARDS" 



0R430 
0R442 
08464 
08466 
0R47R 
0R490 
08602 
0R61 4 
OR626 
08638 
086 c .O 
08662 
08^70 
0R670 
08682 
0R694 
ORf.06 
0861 8 
08630 
0R642 
086^4 
0R666 
0R678 
08690 
0R7O2 
08714 
08726 
08738 
08750 
08762 
0R774 
08786 
08708 
08810 
08822 
08834 
08842 
OR842 
ORRc.4 
0RRA6 
8 8 7 8 
OfiRqO 



] 6392 
08153 
08582 
081 53 
08 5 70 
000T9 
16392 
1 6392 
08998 
16362 
08153 
08442 

081 61 
17834 
08153 
1 7206 
1984? 
19849 
17206 
198 54 
19861 
17206 
1 9926 
19927 
19989 
0876? 
08151 
19873 
19841 
08810 
08148 
0884? 
08842 
0884? 
8 310 



17 006^4 

?' ; 17736 

4 1 89 5 8 

3** 00000 

11 0374- 



08333 
08331 
0] ?00 
000J5 
01200 
16307 
08333 
00099 
000- 1 
16392 
000-1" 
00000 

00000 

000 
000-0 

8333 

1 9000 
000-0 

8331 
1.Q000 
000-0 
16362 
19000 
000-0 
000-0 
08151 
000-0 
00007 

0400 
0O200 

1 2 6 
01200 
00900 

001 00 
00000 

1 6043 
C040 6 
8144 

ooioi 

00 0-1 



TF 

TEST C 
BE 
CM 
BE 
TF 
M 

TF 
AM 
A 

GO AM 
B 

DORG 
ERROR 2 SF 
PUNCH BTM 
TFM 
BTM 
TR 
TFM 
BTM 
TR 
TFM 
BTM 
TR 
TFM 
TFM 
BNF 
CF 
TFM 
WACD 
BNC2 
CM 
BE 
BLC 
BC1 



OLMO 



GOGO 



LAST 



PR INT 



INTER.*WUMBER._.... 

CNJ.l .POWER, j... 

PUNCH 

CNTl, 15,10 
ERROR 2 

79.ZEROES-2T 
INTER, NUMBER" 
I NT- R, 99 _ 
MULTCT ,Y»10^ 

sum, Inter " 

CNTl.f_.lG _ 

TEST 

*-3 I 
HALT8&9 » , » _ 
LD160. ,8. 
CNTl , ,10 , 
ED I T , NUMBER , • 



■HFVELOP SUM 



1 » , 



DORG 
BTM 
BT 
BD 

SPTY 
AM 



AAREA&2 . EDNUMB 
AARFAf,9 , ,10' 
ED IT. "POWER 
AAREAfrl4. EDNUMB- 1 
A AREAS- 2 1 , ,10 
EDIT. SUM 

A AREA&86 » ED NUMB-i 

AARFAf,87,,10 

AAREAM49. .10 '__"_ 

G0G0,HALT8&9ji _ 

HALT6&-9..10 

A A R E A S 3 3 . 6 7 » 10_» " 

A AREAS- 1 

LAST 

CDCNT ,12 5,7 "" 

PRINT 

PRINT 

PRINT 

READ 

*-3 

ALPHA ,MESS1 , , 
LD80.RM4 

WRITE1 .CDCNT-4.7 
CNT2 , 1 ,10 



OVERFLOW 
CLEAR' PUNC 
RE I N I T I AL 
SET UP PU 
PUNCH OU 




AT ION 



TEST FOR TRUNCAT I 
X IF TRUNCATED 



. Z '. „. POSIJION_ ^CARD COUNT 



n h o , / 

OhQH 
08O?6 
08938 
089*0 
089^6 
08Q=>8 
08Q70 
08OR2 
08QR9 
08998 

8999 

1 56no 
15600 
16612 
1 6624 
1 *636 
1 66 48 
1 6660 
1 6672 
1 6684 
1 5696 
15708 
157 20' 
1 6732 
1 5744 

15 7 56 
1 6768 
15780 
16" 7 9? 
15804 
15816 
168 28 
15840 
1 6852 

16 860 
1 5863 
1 5865 
"1 691 1 
1*951 
1 *°79 

"160 21" 



1 1 




000-1 


i a 


874- 


000-4 




U a o n o 


01 2 00 


7 ^ 




8148 




1 6600 


n r> O n n 
u u U U u 


7 f> 


0898 1 


08877 


^ 1 


] 9920 


99909 


4- 9 


1660 


uuuuu 




0001 






000 1 




1 6 


08877 


8144 


7 6 


08749 


T q 6 


3 A 


^ q 9 ? 


00100 


1 7 


006 94 


O ~ O 






1 60 89 


2 7 


17798 


00405 


4 "*} 


15768 


"8989 


J J. 


08749 


000-1 


i 1 


15683 


000-1 


?> 4 


00000 


ooi 01 


1 A. 


08749 


oo~o-9 


4 7 


16672 


0l?00 


.2 5 


19920 


08998 


49 


15797 


'CTOOoO 


26 


1579T 


15683 


31 


1992"0 


99999 


1 6 


"156 F3 "' 8 989 


26 


08749 


1629Q 


38 


19920 


troioo 


17 


'00694 6583 


17 


006 94 161 65 


49" 


08142 00000 



"00004 
0002 3 '""" 
0002 
00014 
000 2?"" 
000 02" ~ 



WRITE1 



MULTCT 



AM 

CM 

RNE 

TD 

B 

DORG 
TF 
TR 
B 

DORG 
DC 
DSC 



OBOY&H »1 »10 
CN i 2 .4.10 ^ 

OBOY 

19920 .CDCNl 

DAVE 
*-3 

*^23,OBOY&Tl 
19920,99999 

15600 " 



JL. 



DAVE 
WR I T"E2 



WOW 



*- 4 

10 ,0 

1 »® 

DORG 15600 

TFM OBOY&ir»CDCNT-i 
TF CNT2 .ZEROES -'3 3 
WnTY 19920 
BTM ALPHA < SPACE& 2 



WRITES" 
WR 1TE4 



BTM 

BT 

BD 

AM 
^AM 

SPTY 

CM 

BNE 

TD 

B " 
"T F 

TR 



ALPHA. MESS2 
LD80,RM4_ 

WRITE3.MULTCT-9._7. 
CN_T2.i»'lO_ -'— 
wOWf r ll,l,iO 



POSITION MULTIPLY COUNT 



CNT2 .9.10 

wow __""'" 
1992 0~,_MUL] 
WRITE4-12 

*&23 . wower: 



INSTfT 



1992 0,9 9999" " 
TFM '~WOWfi."i"i TMULTCt-9 
T F CN T 2 , Z E"RpTS^3~3 ~ 

WNTY 19920 "'" "" ~~ 

"BTM" ALPHA, S"PAC_&2 

"BTM ALPHA ,M_553' ~~" 

~B HALT 8 

"DORG ~*-~3 " 

_DC 4,0701 ~ ""'"" 

DAC 2 3 ,5¥2 ON READS 125 CARD~3®~ 



"DAC "T0~,"S"Wi ~ON STOPS READE R® 

DAC 14,OFL6¥~TO STOPffl __ 

DAC 2 2 , LOAD DATA , PUSH STARff 

D A C Ti "~ 



16027 
1 6031. 
16035 

160 37 
16041 
16'043 
1 6087 
16089 
16163 

161 66 
16239 
1 6263 
16265 
16286 
081 48 
081 49 
1.6 3 32 
16362 
16392 
08333 
08331 
08749 
08346 
17608 
08*81 
00694 
1 7798 
00406 
08163 
1 7834 
1 7206 
1 9840 
1 9001 



00002 

00002"" 

00001" 

ooo or" 

OOD'OTf" 

00021" 

00"0D"4~ 

000T6"" 

00004 

00037 

000OT 

00006 

000 10_ 

0"0'0"07 

00001 
0003 5 
00030 
00030' 



00004 
000O4 



DAC 



DAC 

DAC" 



DAC 1.(3 



15c 



4 , "OI'O O 

Tl ."NUMBER OF CARDS READ© 



ME531 DAC _ 

I dc 4.oioo_ ; 

MESS 2 DAC "36 .NUMBER OF "MULT I PLICAT I ONS P ER FORME D® 

""" DC 4,0104 



7 , AN 
,HALT 

i *§ » 

35,0 
30,0 
"30,0 
♦ONE&Il 



MESS 3 DAC 37, E ND OF JO B . LOAD DATA AND PUSH STARTS 

NBR DAC "7 , NUMB ER® " _2 

PR '"" DAC 6. POWER® ^ " 

TRUNK DAC " 1 . TRUNCATED® 
ANS DAC 7.AN3WE 
CDCNT DS 
" DC 
ZFROES DC 
SUM DC 
INTER DC 
NUMBER DS 
POWER DS 
CNT2 
RCTY 
NFXT 
SPACE 
ALPHA 
LD80 
RM4 
CNTl 
LD160 
EDIT 
AAREA 



DS 
DC 
DS 
DC 
DS 
DS 
DS 
DS 
DS 
DS 
DS 



.0NE&9 

♦ 0LM0__11 ' _ 
4,0003,TWb&ll 
»17608_ 

4,000 2 . ERRO R 2 & 11 _ 

,00694 

, 17798 

,40 6 ~ ^_ 

,HAlT8&11 



FDNUMB DS 

DEND 



,17834 
.17206] 
.19840 
.19001" 



SAMPLE INPUT SECTION EIGHT 

12 04 

5 02 

6 02 
10 10 
10 11 
10 12 
10 13 
10 14 
10 15 
10 16 
99 99 
99 15 
66 03 
74 74 
85 85 

96 96 
O 10 03 
<fc 25 24 

26 26 

27 28 
78 45 

17 12 

18 18 
45 78 

2 02 

89 56 

18 18 

12 13 

15 99 

45 99 

10 06 

20 09 

1 15 

1 20 

2 04 
12 04 

97 64 
45 12 

3 06 



45 67 

14 14 

15 12 
76 54 
78 96 

16 12 

17 15 

98 76 
17 14 
17 13 

5 02 

6 02 

99 99 
66 03 
96 96 
10 10 
10 11 

15 16 

16 15 
10 17 
10 18 

17 18 

18 17 

19 18 
10 19 

10 11 
3 04 

20 20 

20 21 

21 20 
28 27 
30 30 
32 23 
56 23 
12 45 
23 32 

11 12 
23 56 
36 25 
11 13 



\ 



O 



14 74 

12 12 

13 13 
12 34 
43 21 
78 54 

23 23 

24 25 
10 12 
10 03 

25 24 
10 13 

. 10 14 
10 15 

26 26 

27 28 
2 02 

10 16 
. 99 15 

3 18 18 

89 56 

18 18 

12 13 

1 15 

15 99 
45 99 
45 12 

15 16 

16 15 
10 06 
20 09 

1 20 
10 17 
10 18 

17 18 

2 04 
12 04 

18 17 
97 64 



C 



3 06 
3 04 

19 18 
10 19 

10 11 

11 12 

20 20 

11 13 

12 12 

20 21 

21 20 
28 27 
32 23 
56 23 
23 56 
36 25 
43 21 
78 54 

23 23 

24 25 
45 67 
76 54 
78 96 

13 13 

14 14 

15 12 

16 12 

17 15 
17 14 
17 13 
30 30 
23 32 
12 34 
74 74 
45 78 
14 74 
98 76 
85 85 
78 45 
12 45 



